open ( OH, "> output_file") or die "$!\n";

while (sysread FILEHANDLE, my $data, $len){ syswrite OH, $data }
[download]