#! /usr/bin/perl
use warnings;
use strict;

my $im_thinking = int rand 10;
print "Pick a number: ";

my $guess = -1;
while ($guess != $im_thinking) {
    $guess = <STDIN>;
    chomp $guess;
    if ($guess > $im_thinking) {
        print "You guessed too high!\n";
    } elsif ($guess < $im_thinking) {
        print "You guessed too low!\n";
    }
}
print "You got it right!\n";

##</code><code>##

#! /usr/bin/perl
use warnings;
use strict;

my $im_thinking = int rand 10;
print "Pick a number: ";

while () {
    my $guess = <STDIN>;
    chomp $guess;
    last if $guess == $im_thinking;
    print "You guessed too ", $guess < $im_thinking ? 'low' : 'high',
        "\nTry again: ";
}
print "You got it right!\n";