#!/usr/bin/perl
$buffer = $ENV{'QUERY_STRING'};
($arg1,$arg2) = split( /&/ , $buffer );
($name1,$value1) = split( /=/ , $arg1 );
($name2,$value2) = split( /=/ , $arg2 );
print "Content-type: text/html\n\n";
print "<HTML><HEAD><TITLE>Calculator</TITLE></HEAD><BODY><H1>";
print $value1,"+",$value2,"=",$value1 + $value2;
print "</H1></BODY></HTML>";
