Help for this page
#!/usr/local/bin/perl use strict; ... foreach my $line (<>) { print "$line"; }
#!/usr/local/bin/perl use strict; ... foreach my $line (<$fh>) { print "$line"; }