#!/usr/bin/perl -w
use CGI ':standard';
$na = param('na');
$nb = param('nb');
$oper = param('oper');
if ($oper eq "mul")
{ $answ = $na * $nb;
}
elsif($oper eq "div")
{ $answ = $na / $nb;
}
elsif($oper eq "add")
{ $answ = $na + $nb;
}
elsif($oper eq "sub")
{ $answ = $na - $nb;
$nd = "-";
}
else
{$answ = $na ** $nb;
}
print "Content-type:text/html\r\n\r\n";
print "";
print "";
print " Answer Page";
print "";
print "";
print " The answer to your calculation is: $answ
";
print "";
print "";