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


in reply to How to use Email::MIME::Attachment::Stripper to download email attachments?

Why do you only run Email::MIME::Attachment::Stripper against $parts[1], and not, say, the whole email?

Also, your code misses the essential

use strict; use warnings;

lines that you should always use.