#!/usr/bin/perl -Tw use strict; print "Content-Type: text/html\015\012\015\012"; if ($ENV{'REQUEST_METHOD'} eq 'POST') { print ""; print while <STDIN>; } else { print '<html><body>', '<form method="post" action="" enctype="multipart/form-data">', '<input type="file" name="f" size="50">', '<input type="submit">', '</form></body></html>'; }