#################################
use Net::POP3;

# Constructors
$pop = Net::POP3->new('redserv1', Timeout => 60);
$i = int rand(10000000000000);
if ($pop->login("capturemail", "redmap") > 0) {
    my $msgnums = $pop->list; # hashref of msgnum => size
    foreach my $msgnum (keys %$msgnums) {
        open(MAILBOX, ">$i.eml")
            or die "Cannot open Mailbox file $timestamp$i.eml";
        print "Writing to $i.eml\n";
        $i++;
        my $msg = $pop->get($msgnum);
        print MAILBOX @$msg;
        # $pop->delete($msgnum);
        close(MAILBOX)
            or die "Cannot close mailbox";
    }
}
$pop->quit;