Select Code to Download

    my $upload_Handle = $q->upload($filename);

<input type="file" name="upload_file" />
                         ^^^^^^^^^^^

my $filename   = $q->param('upload_file');    # returns (client-side) 
+name of the file
my $filehandle = $q->upload('upload_file');   # returns handle to the 
+server-side temp file