Select Code to Download

use File::Slurp;

...
    syswrite $out_file, pack( "v*", unpack("n*", $data ));   
    $bytes+=$n;
}

use File::Slurp;

...

syswrite ( $out_file, $mem_file );