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