It might be worth noting that MIME entities can themselves contain other entities, i.e., every email attachment can contain other email attachments. Therefore, to process these correctly, you'd need to break the email attachment parser into a recursive sub.

Example:

sub extract_files {
        my $entity = shift;

        my $num_parts = $entity->parts; # how many mime parts?

        if ($num_parts) { # we have a multipart mime message
                print "Multiple subentities found - parsing\n";
                my $message;
                foreach (1..$num_parts) {
                        $message .= extract_files( $entity->parts($_ -
+ 1) );
                }
                return $message;
        } else {

             #Do some stuff....
        }
}
[download]

There's a node around here (probably posted a couple of months ago) that details this a little better, but I can't find it using Super Search, or thepen's google-able archive.