#!/usr/bin/perl -w

$im_thinking_of=int(rand10);
print "Pick a number:";
$guess=<STDIN>;
chomp $guess;

if ($guess>$im_thinking_of) {
print "You guessed too high!\n";
} elsif ($guess < $im_thinking_of) {
print "You guessed too low!\n";
} else {
print "You got it right!\n";
}

##</code><code>##

Argument "rand10" isn't numeric in int at guess line 3

##</code><code>##

You guessed too high!