This line is to solve a problem with Internet Explorer.

#!/opt/bin/perl

require "subparseform.lib";
&Parse_Form;

$name = $formdata{'name'};

print "Content-type:text/html\n\n";

print "\n\n";
print "\n\n";

print "\n
Trying CGI for 022
\n";

print "
You chose $formdata{'answer1'}\n";
print " as your 1st answer, $name.
\n";

if ($formdata{'answer1'} eq "Converse" || 
                              $formdata{'answer1'} eq "converse" ||
                              $formdata{'answer1'} eq "CONVERSE") 
    {
    print "
Congratulations $name, you are correct!
\n";
    }
else
    {
    print "
Sorry $name, that is wrong.
\n";
    }
print "
\n";

print "\n";

if ($formdata{'school'} eq "UNI" || $formdata{'school'} eq "uni") {
    print "
Congratulations $name, you got a tough question!
\n";
    }
else
    {
    print "
Sorry, that is wrong.
\n";
    print "
Be sure to use the school abbreviation or acronym\n";
    }
print "\n";
print "
\n";
$correct = 0;
for ($i = 1; $i < 5; $i++)
   {
    $index = "a" . $i;
    if ($i == 1 || $i == 3 || $i == 4) 
       {
         if ($formdata{"$index"} eq "T")
            { $correct++; }
       }
    else {
         if ($formdata{"$index"} ne "T")
            { $correct++; }
         }
   }
$p1 = "
\nYou got $correct out of 4 of the True/False\n";

print "$p1";

if ($correct < 4) 
   {
    print " checkbox answers.  
Hint: 3 are True, $name.";     
   }
else
   { print "
Way to go $name!!!"; }

print "\n
\n\n\n";