http://www.perlmonks.org?node_id=194262


in reply to Saving certain email attachements using MIME::Tools

You might need MIME::Parser

In Section Seekers of Perl Wisdom