Select Code to Download

binmode($fh_in);
binmode($fh_out);
...
   s/\x0D\x0A/\x0A/g;
   print $fh_out $_;
}