while ($tries < $allowed) {

    print "  Your guess:  ";
    chomp($guess = <STDIN>);
    $tries++;

    if ($guess eq $answer) {
	last;
    } elsif ($guess > $answer) {
	print "                 $guess is too high!\n";
    } elsif ($guess < $answer) {
	print "                 $guess is too low!\n";
    }    
}