Select Code to Download

<FORM ENCTYPE="multipart/form-data" ACTION="the.cgi" METHOD=POST>
Var1 : <input type=text name=var1><br>
File : <INPUT NAME="file" TYPE="file"><p> 
<INPUT TYPE="submit" VALUE="Send File"> 
</FORM>

#!/usr/bin/perl
use CGI;
...
print "Passed Variable = $var1<p>";
print "File name uploaded was <i>$filename</i><p>\n";
exit;