my $upload_filehandle = $query->upload("TheFile");
open ( UPLOADFILE, ">$target_filename" ) or die "$!";  
binmode UPLOADFILE;  
while ( <$upload_filehandle> )  
{  
 print UPLOADFILE;  
}  
close UPLOADFILE;

##</code><code>##

$filename = $query->param('uploaded_file');
$tmpfilename = $query->tmpFileName($filename);