Select Code to Download

#!/usr/bin/perl -w
use strict;
...
 }

close UPLOADFILE;

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

...
 {
   print UPLOADFILE;
 }

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

open UPLOADFILE, ">$upload_dir/$uldate";
...

   print UPLOADFILE;
 }