Select Code to Download

if (($a != b) && ($error > 0 && $error <= 3 )) {
repeat question and <STDIN>
...
if ($error >= 3) {
print "Took you too many tries, you lose\n";
}

#!/usr/bin/perl

...
    print "You win!\n";
    print "It only took you $numguess time(s)!!\n";
}