Select Code to Download

perl -pe'chomp; END { print "\n" }' file

open(my $fh_in, '<', $qfn_in)
   or die("Can't open \"$qfn_in\": $!\n");
...
}

print $fh_out "\n";