Help for this page

Select Code to Download

Select or download this

my $out_fh;
while (<$in_fh>) {
...
      print $out_fh $_;
   }
}