use strict;
use Mail::POP3Client;
use MIME::Parser; 
my $pop = new Mail::POP3Client( USER     => 'xxx',
               
 PASSWORD => "xxx",
               
 HOST     => "pop.googlemail.com",
               
 USESSL   => 'true',
                  );
###open (MAIL, ">mail.txt");
print "Status: ". $pop->State()." No of email:". $pop->Count();
my $i=1;
if ($pop->Count()) {
  my $message=$pop->HeadAndBody(1);
  my $parser = MIME::Parser->new();
  $parser->output_to_core();
  my $entity = $parser->parse_data($message);
}
$pop->Reset();
$pop->Close();
exit;