use strict;
use warnings;
use Mail::IMAPClient;

my $imap = Mail::IMAPClient->new(
  Server   => 'imap.gmail.com',
  User     => 'jim@gmail.com',
  Password => '*******',
  Ssl      => 1,
  Debug     => 0,
);

die "failed to instantiate $@." unless defined $imap;

$imap->select('INBOX');
my $msgcount = $imap->message_count();
print "$msgcount number of measages in your mailbox\n\n";
my @messages = $imap->messages;
pop(@messages);
my $msgid = pop(@messages);
my $text = $imap->bodypart_string($msgid,1);
my $hashref = $imap->parse_headers( $msgid, "Subject","To","From");
my @sender =  @{%$hashref{"From"}};
my @recs =  @{%$hashref{"To"}};
my @subject = @{%$hashref{"Subject"}};
my @rec = split(/,/, $recs[0]);
print "From: $sender[0]\n";
print "Subject: $subject[0]\n\n";
foreach(@rec){
	$_=~ s/^\s+|\s+$//g;
	print "To: $_\n";
}
print $text;
$imap->logout();