Пример программы угадывающей числа на perl