Select Code to Download

$filename = $sourcepath = $query->upload($file);
$filename =~ /([\w. -]+)$/i;
...
}
    
close(OUTPUT);

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

...
 }

close UPLOADFILE;