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

my $size = $ENV{CONTENT_LENGTH};
if ($size > $max) { 
   return ($filename,"File is too large to upload.",$size);
}
	
open(OUTPUT, ">$path/$filename") or return ($filename, "Cannot open '$filename'. Contact Webmaster"); ; 
binmode($filename);
binmode(OUTPUT);
	
while( read($sourcepath, $buffer, 64*2**10) ) {
   print OUTPUT $buffer;
}
	
close(OUTPUT);

##</code><code>##

my $upload_filehandle = $query->upload("filename");

open UPLOADFILE, ">$upload_dir/$filename";

binmode UPLOADFILE;

while ( <$upload_filehandle> )
 {
   print UPLOADFILE;
 }

close UPLOADFILE;