#!/usr/bin/perl
print "Type in the correct answer, \n";
print "Hit enter key to continue, if it is not correct\n ";
print "the program will not move on to a new problem, \n ";
print "think about your answer, and try again, when it is\n ";
print "the correct answer, it will tell you, \n ";
print "and give a new problem.\n ";
for( ; ; )
{
my $random = int rand 11;
my $random2 = int rand 11;
print "$random x $random2 = ";
$x = $random * $random2;
while ( $answer ne "$x" ) {
	$answer = <STDIN>; 
chomp $answer;
;
}
if ( $answer eq "$x" ) {
}
print "Great $answer is correct.\n";
print "hit enter to continue, ctr-c to exit.";
$_ = <STDIN>;
print "\033[2J";
#print "\033[2J"Might not work on some systems but it does on mine
}