$dig=int(rand 10);
print "Введите число от 0 до 9:";
while(<>) {
 chomp;
 last if $_ == $dig ? print "You win." : ();
 print $_ > $dig ? "perebor!\n" : "NEDABOR!\n";
}