while (my $exit = 0)
   {
   <generate question variables randomly and calculate solution>
   print "$mult1 * $mult2 = ?\n";
   chomp ($guess = <STDIN>);
   <test whether $guess = $solution; if so>
   print "Good job! Want to play again? (Y/N)\n";
   <test answer here; if Y, then>
   system "clear";
   }
   <program loops back and pick another pair of numbers and caculates their product>