use Strict;

srand;
my @op = ('+', '-', '*', '/');
my $o = 0;
my $x = 0;
my $secnum = 5;
for (my $i=0; $i<$secnum; ++$i) {
$func = sprintf("%d %s %d", int(rand(9))+1, $op[rand(@op)], int(rand(9))+1);
print "$func = ";
$ans = <STDIN>;
chomp($ans);

$_ = eval($func);
if ($_ eq $ans) {
print " true\n";
$o++;
} else {
print " false\n";
$x++;
}
}

print "\nRight answer: $o, Wrong answer: $x\n";

お礼は３０万円でいいよ。