#
#
use strict;
use Net::POP3;
my $server = "ms240ex02.sysco.com";
my $username = "valid_user";
my $password = "valid_password";
my $messages;
my $message;
my $msgid;

my $pop = Net::POP3->new($server, Debug => 1) ||
	die "Can't open connection to $server : $!\n";
defined ( $pop->login($username, $password) ) ||
	die "Can't authenticate: $!\n";
$messages = $pop->list || die "Can get list of messages : $!\n";
foreach $msgid (keys %$messages)
   {
   $message = $pop->get($msgid);
   if ( $message )
      { #succeeded
      print "\n"; print @$message;
      }
   else
      { #failed
      warn "Couldn't fetch $msgid from mail server ; $!\n";
      next;
      }
   }