| #!/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."; |