in reply to using "Email::MIME::Attachment::Stripper" "Mail::POP3Client"

Save a sample message 
 open OUTFH, '>test.1.txt' or die "Couldn't write test.1.txt: $! ";
binmode OUTFH;
    $pop->HeadAndBodyToFile( OUTFH, 1 );
    close OUTFH;

[download]
and repost with the sample message

In Section Seekers of Perl Wisdom