my $filename = $q->param('upload_file');

##</code><code>##

    use CGI qw/:standard/;
    use CGI::Carp 'fatalsToBrowser';
    $CGI::POST_MAX=1024 * 100;  # max 100K posts
    $CGI::DISABLE_UPLOADS = 1;  # no uploads
##</code><code>##

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