#!/usr/bin/perl
require("cgi-lib.pl");

&ReadParse(*input);

print "Content-type: text/html\n\n";

$na = param('v1');
$nb = param('v2');
$oper = param('oper');
$nc;
$nd; 
$expo;
$answ;

if ($oper == "addition") 
    { $answ = $na + $nb; 
	$nd = "+";