my ($Bytes, $Buffer, $BytesRead);

		open OUTFILE, ">$upload_dir/$filename" or die "Couldn't open output file: $!\n";
		binmode OUTFILE;
		while ($Bytes = read($filename,$Buffer,1024)) {
			$BytesRead += $Bytes;
			print OUTFILE $Buffer;
		}
		close OUTFILE;