#!/usr/bin/perl -w

use CGI qw/:standard/;

print header();
print start_html();
print start_multipart_form(-action=>'test.pl');
print filefield('file_name'), submit();

print end_form;
print end_html;