Help for this page

Select Code to Download

Select or download this

for my $file ( @ARGV ) {
   open my $fh, '<', $file or die "$file: $!";
   while ( <$fh> ) {
...
   }
   close $fh;
}