Select Code to Download

<$fh_in>;  # Skip header
print $fh_out $_ while <$fh_in>;

<$fh_in>;  # Skip header
{ local $/; print { $fh_out } <$fh_in>; }

use strict;
use warnings;
...

    print $fh_out $_ while <$fh_in>;
}, '.');