#!/usr/bin/perl

require "subparseform.lib";
&Parse_Form;

$number = $formdata{'number'};
$power = $formdata{'power'};

$result = $number ** $power;

print "Content-type: text/html\n\n";
print "<P>You entered $number with an exponent of $power";
print "<P>$number raised to the $power power is $result.";
