#!/usr/bin/perl



use strict;

use POSIX;



use Net::POP3;



my $pop = new Net::POP3 "pop3.domain.dom";

my $num = $pop->login("jobe", "password");





if( $num ) {

    print "There were $num messages.\n";

    open OUT, ">snagged.mail" or die "crap ($!)";

    for my $i (1..$num) {

        print "getting message #$i\n";

        my $msg = $pop->get($i);

           $msg->[0] =~ m/<(.+?)>/;

        print OUT &strftime("From $1 " . q(%a %b %d %H:%M:%S %Y), localtime), "\n";

        print OUT $_ for @$msg;

        print OUT "\n";

    }

    close OUT;

} else {

    print "bad login\n";

}