#!/usr/local/bin/perl -T
require("./Library/cgi-lib.pl");
print &PrintHeader;
&ReadParse(*form_data);
print qq`
Square Script
\n`;
@data = split(/ +/, $form_data{'valuelist'});
@calc_data = ();
foreach $x (@data) {
push(@calc_data, $x * $x);
}
$| = 1;
if ($form_data{'javacgibridge'} eq "on") {
#print qq!cgiURL|two.cgi
#testcgiURL|two.cgi\n!;
print join("\n", @calc_data) . "\n";
} else { # javacgibridge is not on
print "This is the original data:";
print join("
\n", @data);
print "
";
print "This is the data raised to the power of 2:
";
print join("
\n", @calc_data);
print "
";
}
print "
\n";