В случае успешной регистрации выполняется подсчет общего числа сообщений в почтовом ящике пользователя; если в почто­вом ящике сообщений нет, этот метод возвращает значение 0E0 (“нулевое, но истинное”). Это значение равно 1, если оно рассматривается как логическое, предназначенное для проверки того, была ли регистрация успешной, и 0 — при использовании для подсчета числа доступных сообщений. Затем вызывается метод last() объекта POP3 для получения номера последнего сообще­ния, считанного пользователем (если не было считано ни одного сообщения, этот метод воз­вращает 0). Номер последнего сообщения используется для получения списка непрочитанных сообщений. Поскольку число сообщений, выбранное методом login (), может принимать зна­чение 0Е0, в строке 12 оно складывается с нулем для преобразования в обычное число. По­сле этого выводится общее число старых и новых сообщений.

Строки 14-21. Получение сводных данных о сообщениях. Все сообщения в почтовом ящи­ке имеют последовательно возрастающие номера, которые начинаются с 1. Для каждого не­прочитанного сообщения вызывается метод top() объекта POP3 для выборки заголовка сооб­щения в виде ссылки на массив строк, а затем осуществляется их передача методу Mail::Header->new() для интерпретации. Дважды вызывается метод get() интерпретиро­ванного заголовка для выборки строк Subject: и From:, и адрес отправителя передается вспомогательной подпрограмме clean_from() для преобразования в более удобный формат Затем выводится номер сообщения, имя отправителя и тема.

 Строка 22. Разрыв сеанса связи с сервером. Метод quit () объекта POP корректно разры­вает соединение.

 Строки 23-29. Вспомогательная подпрограмма clean_from(). Эта подпрограмма преоб­разует адрес отправителя в более удобный формат, извлекая имя отправителя с использова­нием одного из следующих трех обычных форматов адреса:

При выполнении программы могут быть получены следующие результаты.