use Mail::IMAPClient;
use Email::MIME;
use Data::Dumper;

my $imap = Mail::IMAPClient->new(
  Server   => 'abc.com',
  User     => 'xxx',
  Password => 'xxx',
  Ssl      => 1,
  Uid      => 1,
#  Starttls => 1,
);
die "failed to instantiate." unless defined $imap;

$imap->connect or die "Could not connect: $@\n";

my $folders = $imap->folders
  or die "List folders error: ", $imap->LastError, "\n";
print "Folders: @$folders\n";

$imap->select( 'INBOX' )
  or die "Select 'INBOX' error: ", $imap->LastError, "\n";

my $list = $client->search('SUBJECT', 'a new email');
for my $msgid (@$list){
	my $from  = $client->get_header( $msgid, "From" );
	my $subj  = $client->get_header( $msgid, "Subject" );
        my $bsdat = $client->fetch( $msgid, "bodystructure" );
        my $bss   = $client->body_string($msgid);
        my $parser = MIME::Parser->new();
        $parser->output_to_core(0);
        # this saves message IN ONE BIG FILE, text+attachments together!!!
        # and the extension is '.txt'!!!!
        $parser->extract_nested_messages(1);
        $parser->output_under('./out');
        my $entity = $parser->parse_data($bss);
        # $entity->parts does not give me the parts 
        # even if message is 'Content-type: MULTIPART/mixed'
}