Select Code to Download

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

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