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";
	}