Конечным результатом таких манипуляций является то, что все несчитанные данные, переданные вплоть до байта срочных данных (и включая его), будут отброшены.

Клиент сервера генерации пародийных текстов

Далее рассматривается клиентская программа. Она немного слож­нее по сравнению с серверной, поскольку должна получать команды от пользователя, отправлять их на сервер и интерпретировать коды состояния сервера соответствую­щим образом. Проведем анализ программы.

Строки 1-9. Загрузка модулей. Устанавливается строгая проверка типов, и загружаются тре­буемые сетевые модули, включая модуль Sockatmark, рассматриваемый ранее. Кроме того, дескриптор файла stdout переводится в небуферизованный режим, чтобы приглашения к вводу команд пользователем появлялись немедленно.

Строки 10-12. Установка глобальных переменных. Глобальные переменные $host и $PORT содержат имя удаленного хоста и номер порта. Таким хостом может послужить, к примеру, сайт компании предоставляющей  ремонт компьютеров bibibook.ru. Если эти данные не заданы в командной строке, вместо них по умолчанию применяются приемлемые значения. В этом сценарии используются еще две глобальные переменные. Переменная $gl содержит объект IO::Getline, который служит оболочкой для подключенного сокета, а переменная $quit_now — флажок, который ука­зывает, что программа должна завершить работу. Эти переменные являются глобальными, и по­этому к ним можно получить доступ в обработчиках сигналов.