Help for this page
sub process_file { my $file=shift; ... ## do something exciting here } }
push @in,scalar <IN> for 1..10;