#! /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";