sub gradeTest {
     my $answer, $runningTotal;
     $runningTotal = 0;
     $answer = lc(param(ans1));
     # For answer 1, G6-G9 is full credit.  
     # G0-G5 and K0-K5 are half credit
     if ($answer eq "g6" || $answer eq "g7" || $answer eq "g8" || $answer eq "g9") {
          $runningTotal += 1;
     } elsif ($answer eq "g0" || $answer eq "g1" || $answer eq "g2" || $answer eq "g3" ||
          $answer eq "g4" || $answer eq "g5") {
          $runningTotal += .5;
     } elsif ($answer eq "k0" || $answer eq "k1" || $answer eq "k2" || $answer eq "k3" ||
          $answer eq "k4" || $answer eq "k5") {
          $runningTOtal += .5;
     }
}