My version:

$n=int(rand(1001));print'>';
while(<>){++$i;last if$_==$n;$_>$n?$n--:++$n;print'Too ',$_>$n?'big':'
+small',"\n>";}
print"Won in $i tries\n";
[download]