Select Code to Download

#!/usr/bin/perl

...
    or die("Can't create \"$qfn_out\": $!\n");

print $fh_out $_ while <$fh_in>;