use strict;
use warnings;
                                                                                
use Email::MIME;
use Email::Folder::Mbox;
                                                                                
my $box = Email::Folder::Mbox->new('/home/jonathan/mail/spam');
while ( my $mail = $box->next_message )
{
   my $mess = Email::MIME->new($mail);
                                                                                
   foreach my $part ($mess->parts())
   {
      if ($part->content_type() =~ /image/i )
      {
         open OUT, ">",  "tmp/" .$part->filename or next;
         print OUT $part->body();
         close OUT;
      }
   }
                                                                                
}