#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI qw(:standard);
my $cornplanted=0;
my $cornnotplanted=0;
#@number1=("12" .. "25");
#$number1rand=$number1[rand @number1];
$number1rand=int(rand(20));
$number2=int(rand(12));
$correctanswer=($number1rand + $number2);
print "$correctanswer
";
$output=<<_html_;
_html_
print $output;
if ($response1 eq "$correctanswer")
{
$cornplanted=($cornplanted + 1);
print "correct!";
}
elsif ($response1 ne "$correctanswer")
{
$cornnotplanted=($cornnotplanted + 1);
print "not correct!";
}