use Mail::Box::POP3;

my $folder = Mail::Box::POP3->new(folder => $ENV{MAIL}, ...);
my $message = $folder->message(0);

if($message->body->isMultipart) {
    foreach my $part ($message->body->parts) {
        my $attached_body = $part->decoded;
        ...
    }
}