my $message_count  = $server->select( 'folder' );

print "Found $message_count messages\n";
foreach my $message_number ( 1 .. $message_count ) {
    print "Processing message number $message_number\n";

    my $email = Email::MIME->new( join '', @{$server->get( $message_number )} );

    my $stripper = Email::MIME::Attachment::Stripper->new($email);
    my @attachments = $stripper->attachments;

    foreach my $attachment ( @attachments ) {
        print $attachment->{filename}, " ", $attachment->{content_type}, "\n";
    }
}