Выполняется проверка значения, возвращенного этим блоком, и если оно не определено, про­исходит возврат в начало цикла, где обнаруживается изменение значения переменной $done.

Строки 84-91. Обработка соединения. Если блок eval {} выполнен успешно, значит, полу­чено новое входящее соединение. Родительскому процессу отправляется через дескриптор CHILD_write сообщение “busy”, и вызывается подпрограмма handle_connection (). После завершения цикла родительскому процессу отправляется сообщение “done", дочерний про­цесс закрывает все открытые дескрипторы файлов и завершает работу.

Строки 92-95. Подпрограмма cleanup_child (). Это процедура обратного вызова, которая вызывается при успешном получении подпрограммой reap_child(), определенной в модуле Daemon, сообщения об уничтожении дочернего процесса. Выполняется выборка идентифика­тора дочернего процесса из стека подпрограммы и его удаление из хеша % status. Это позво­ляет учесть такую ситуацию, когда дочерний процесс уничтожается, не имея возможности записать сообщение с кодом состояния “done" в канал.