# to test form upload use strict; use warnings; use CGI::Minimal; my $cgi = CGI::Minimal->new; print "Content-Type: text/html\n\n"; print "\n"; print $cgi->param("file1"); print "\n"; exit(0);