Строки 1-3. Загрузка модулей.

Строки 4,5. Открытие сообщения. Из командной строки извлекается имя файла, содержащее сообщение, закодированное в формате MIME, и файл открывается. Дескриптор файла будет передан синтаксическому анализатору MIME::Parser позднее. Заранее можно провести тестирование компьютера , на предмет установленных модулей Perl.

Строки 6-8. Создание и настройка синтаксического анализатора. Создается новый объект синтаксического анализатора путем вызова метода MIME::Parser->new(). После этого вызывается метод output_dir,() вновь созданного объекта для указания каталога, в который синтаксический анализатор запишет данные тела сообщения, состоящие из извлеченных вложений.

Строки 9,10. Интерпретация файла. Методу parse() синтаксического анализатора переда­вши открытый дескриптор файла. Значение, возвращенное из этого метода, представляет собой объект MIME::Entity, соответствующий верхнему уровню сообщения.

Строки 11-14. Вывод информации об объекте верхнего уровня. Для демонстрации того, что сообщение было успешно интерпретировано, выполняется выборка и печать строк From: и Subject: заголовка путем вызова в каждом из этих случаев метода head() объекта MIME::Entity для полу­чения объекта MIME::Head. Затем выполняется вывод типа MIME всего сообщения и числа подчастей, которое определено с помощью метода parts() объекта MIME::Entity.

Строки 15-17. Вывод информации о частях объекта. Выполняется проход в цикле по всем, частям сообщения. В каждой части вызывается ее метод mime_type() для выборки типа MIME и метод path() соответствующего объекта MIME::Body для получения имени файла, который содержит данные.

Строка 18. Заключительные действия. По окончании работы вызывается метод purge() - для удаления всех файлов данных интерпретированного тела сообщения.