При каждом вызове обработчика он наращивает гло­бальную переменную $quit_now на единицу. Как только переменная достигает значения 2 или более, выполнение программы завершается. В ином случае обработчик выводит сообщение ‘‘Press ctrl+c again to exit". В результате этого для завершения программы пользователь должен дважды нажать клавишу прерывания без промежуточных команд. Это позволяет исключить возможность прерывания программы пользователем, который хотел просто прервать передачу данных. Обработчик urg настроен на вызов подпрограммы do_urgent (), которая рассматривается ниже.

Строки 16-18. Создание подключенного сокета. Предпринимается попытка создать дескриптор IO::Socket, подключенный к удаленному хосту. В случае успеха применяется функция fcntl () для установки в качестве владельца сокета текущего процесса, чтобы этот про­цесс мог получать сигналы urg.

Строки 19-22. Создание оболочки IO::Getline. Создается новая оболочка сокета IO::Getline, включается блокирующий режим поведения и немедленно начинается поиск заголовка приглашения хоста путем сопоставления кода результата с образцом 200. Если в по­лученных данных код результата отсутствует, вызывается функция die с соответствующим сообщением об ошибке.