Select Code to Download

while ( <$upload_filehandle> ) {
    print UPLOADFILE;
}

use CGI;
my $i = new CGI;
...
    print UPLOADFILE;
}    
close UPLOADFILE;