Select Code to Download

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

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