$filename = $sourcepath = $query->upload($file);
$filename =~ /([\w. -]+)$/i;
$filename = $1;
$filename =~ s/ /_/g;

##</code><code>##

binmode($filename);
binmode(OUTPUT);

##</code><code>##

while( read($sourcepath, $buffer, 64*2**10) ) {
   print OUTPUT $buffer;
}

##</code><code>##

my $upload_filehandle = $query->upload("filename");
open UPLOADFILE, ">$upload_dir/$filename";