6) Главный цикл обработки сообщений. Программа входит в главный цикл об­работки сообщений. Выбирается заголовок каждого сообщения путем вызова метода top() объекта PopParser (который унаследован без изменения от модуля Net::РОРЗ). Текст заго­ловка затем передается предусмотренному в программе методу print_header() для его отображения в виде кратких сведений о сообщении, состоящих из одной строки.

Пользователю выдается запрос, желает ли он прочесть сообщение, и при положительном от­вете вызывается метод get() объекта PopParser, который выбирает указанное сообщение, интерпретирует его и возвращает объект mime::Entity. Этот объект передается подпро­грамме display_entity () данной программы для отображения самого объекта и его подчастей. После выполнения подпрограммы display_entity () удаляются временные файлы объекта путем вызова его метода purge().

На последнем этапе программа выдает пользователю запрос, желает ли он удалить сообще­ние из удаленного почтового ящика, и в случае утвердительного ответа вызывается метод delete() объекта PopParser.

7) Подпрограмма print_header (). Данная подпрограмма принимает ссылку на массив, содержащий строки заголовка, возвращенные методом $POP->top(), и преобразует их в итоговую строку, предназначенную для вывода. Хотя для этого может применяться мо­дуль Mail::Header, оказалось, что проще самим интерпретировать и преобразовывать заго­ловок в хеш с использованием общей схемы, которая применялась в почтовом клиенте Mail::SMTP. Выходная строка содержит дату, имя отправителя и строку темы, которые разделены симво­лами табуляции.