сенкс

Большое спасибо всем, кто откликнулся.
В общем порылся я еще раз на CPAN и нашел таки (как мне кажется то, что мне подходит).
Модуль называется MIME-tools.
Если кому интересно смотрим здесь-> http://search.cpan.org/~eryq/MIME-tools/.

Требует:
File::Path
File::Spec
IPC::Open2
IO::Scalar
MIME::Base64
MIME::QuotedPrint
Net::SMTP
Mail::Internet

Сходу пример из описания все разобрал как надо.

Код

use MIME::Parser;    ### Create parser, and set some parsing options:    my $parser = new MIME::Parser;    $parser->output_under("$ENV{HOME}/mimemail");    ### Parse input:    $entity = $parser->parse(\*STDIN) or die "parse failed\n";    ### Take a look at the top-level entity (and any parts it has):    $entity->dump_skeleton;

Ну, ессно для того, чтобы написать что-то под себя надо еще долго разбираться с методами.
Зато теперь есть направление, в какую сторону копать :-)