| #!/usr/bin/perl | |
| require "subparseform.lib"; | |
| &Parse_Form; | |
| @numbers = split(/,/, $formdata{'number'}); | |
| print "Content-type: text/html\n\n"; | |
| print "The numbers you entered were:"; | |
| foreach $number (@numbers) { | |
| print "<LI>$number"; | |
| } | |
| foreach $number(@numbers) { | |
| $number = sqrt($number); | |
| } | |
| print "<P>The square roots of those numbers are: "; | |
| foreach $number(@numbers) { | |
| print "<LI>$number"; | |
| } |