open(OUTFILE, ">$save_directory\/$file_name");
while ($bytes = read($file_handle, $buffer, 1024))
{
   $bytes_read += $bytes;
   print OUTFILE $buffer;
}
close OUTFILE;