#!/usr/bin/perl -w

use Net::POP3;
my $ServerName = "pop.gmail.com:995";
#my $pop3 = Net::POP3->new($ServerName, Debug =>1)||die("Couldn't log on to server\n"); 
my $pop3 = Net::POP3->new($ServerName)||die("Couldn't log on to server\n");
my $UserName = "zz";
my $Password = "ztest";
my $num_messages = $pop3->login($UserName, $Password)||die("Bad username or password\n");
my $messages = $pop3->list();
print "******$messages $num_messages*******\n";
my %messages;

my $msg_id;
print "#################################################\n";
foreach $msg_id(keys %{$messages}) {
    # print "$msg_id\t$messages{$msg_id}\n"; 
     my $messbody = $pop3->get($msg_id);
     print "################################################\n";
     print "$msg_id\n";
print "@$messbody";
}
print "####################################################\n";
$pop3->quit();
exit 0;