use CGI qw/:standard/;
use strict;

my $cgi = new CGI;

print 	$cgi->header(),
	$cgi->start_html(),
	$cgi->start_multipart_form({
			-method	=> 'GET',
			-action	=> 'part2.cgi'
			}),
	$cgi->filefield({
			-name	=> 'filename',
			}),
	$cgi->submit('Add'),
	$cgi->end_form(),
	$cgi->end_html();

##</code><code>##

use CGI qw/:standard/;
use strict;

my $cgi = new CGI;

print 	$cgi->header(),
	$cgi->start_html();

if (!upload('filename')) {
	print "We Die";
	}
else {
	print "No Die";
	}