use Net::POP3Client;
my $pop= new Mail::POP3Client (   USER     =>    "myuser",
                                  PASSWORD =>    "mypass",
                                  HOST     =>   "127.0.0.1");

 for (my $i=1;$i <= $pop->Count;$i++)
 {
   my $head = $pop->Head($i);
   my $body = $pop->Body($i);
 }