upload.pl:
#!/usr/bin/perl

print "Content-type: text/html\n\n";

print "<form method='post' action='upload2.pl' enctype='mutipart/form-data'>Upload: <input type=file name=image>\n";

print "<input type=submit></form>\n";


upload2.pl:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
while (<>)
{
        print ;
}

output:
image=<fileofuploadedfile>