Select Code to Download

#! perl
use strict;
...
print while <$fh2>;
close $fh2
    or die "Cannot close file '$file': $!";