use Data::Dumper;
use Email::MIME;
use Mail::POP3Client;
my $pop = new Mail::POP3Client(
USER => "user",
PASSWORD => "password",
HOST => "host",
);
my @ret = ();
for my $n (1..$pop->Count) {
my %r = ();
my $parsed = new Email::MIME(scalar $pop->Retrieve($n));
$r{header} = { $parsed->header_pairs };
$r{body} = $parsed->body;
push @ret, \%r;
}
warn Dumper \@ret;
$pop->Close;
