if ($pop->Count()) {
 my $mail=$pop->HeadAndBody(1);
 my $parsed = Email::MIME->new($mail);#
 my $stripper = Email::MIME::Attachment::Stripper->new($parsed);
 my @attachments = $stripper->attachments;
 print;
}