Select Code to Download

binmode($fh);  # Or open with :raw

...
}

die("Premature EOF") if length($buf);

binmode($fh_in);   # Or open with :raw
binmode($fh_out);  # Or open with :raw
...

   print($fh_out $buf);
}