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