input type=file name=file
input type=text name=var1

##</code><code>##

#!/usr/bin/perl
use CGI;

use constant BUFFER_SIZE   => 16_384;
use constant MAX_FILE_SIZE => 48_576;
use constant UPLOAD_DIR    => "/absolute/path/to/";
$CGI::DISABLE_UPLOADS      = 0;
$CGI::POST_MAX             = MAX_FILE_SIZE;

my $req                    = CGI->new;<br> 
my $var1                   = $req->param('var1');
my $file                   = $req->param("file");

if ($file) {
   my $buffer;
   my $file_handle = $req->upload( $file );
   my $format = $req->uploadInfo($file)->{'Content-Type'};
}

print "Content-type: text/html\n\n";
print "Passed Variable = $var1<p>";
print "File name = $file<p>\n";
exit;