#!/usr/bin/perl -w

use CGI;

$query = new CGI;

# print header
print "Status: 200 Content follows\n";
print "Content-type: text/html\n\n";

# Print either an old or a new menu
if (defined($query->param("total"))) {
	$total = $query->param("total") + $query->param("number");
}
else {
	$total = 0;
}
print "<form method=post action=\"easy-data-transfer.cgi\">\n";
print "Enter a number here: <input type=text name=number><br>\n";
print "The total so far is $total<br>\n";
print "<input type=submit value=\"Add!\">\n";
print "<input type=hidden name=total value=$total>\n";