use vars qw(@allquestions @allanswers @explain $anslength @allselections $file $fname $lname $time $reviewtime $idinput $id $courselocation $useripaddress $questionno @log $clocktime $log $type $value @answers $buttonname %selections @options);
print header;

print start_form (-name=>'makequiz', -method=>'POST', -action=>"http://ist221.nsm.tridenttech.edu/perl/gradequiz.cgi");

print hidden(-name=>"answers", -default=>\@allanswers);
print hidden(-name=>"questions", -default=>\@allquestions);
print hidden(-name=>"selections", -default=>\@allselections);
print hidden(-name=>"explain", -default=>\@explain);
print hidden(-name=>'fname', -value=>$fname);
print hidden(-name=>'lname', -value=>$lname);
print hidden(-name=>'reviewtime', -value=>$reviewtime);
print hidden(-name=>'file', -value=>$file);
print hidden(-name=>'id', -value=>$id);

print submit (-value=>'Grade');
print