#!/usr/bin/perl
print "Привет это игра угадайка\nВам нужно угадать загаданное число\n";
$im_of=int(rand 10);
print "Введите числа от 0 до 10:";
$guess=<STDIN>;
chomp $guess;
if ($guess>$im_of) {
print "Число меньше!\n Загаданое число: $im_of\n";
} elsif ($guess < $im_of) {
print "Число больше!\nЗагаданое число: $im_of\n";
} else {
print "Поздравляем вы угадали! Загаданое число: $im_of\n";
exit;
}