use Net::POP3;

my $pop = Net::POP3->new( "mail.mydomain.com", Timeout => 60 );

$pop->user( "me" );
$pop->pass( "mypass" );

### or you can use
### $pop->login( "me", "mypass" );
### or if your server supports it:
### $pop->apop( "me, "mypass" );

$pop->popstat(); # returns number of messages 
                 # and total size in bytes

$pop->list();    # returns number of messages,
                 # total size in bytes,
                 # and byte size for each message

$pop->top( 1, 0 ); # shows the contents 
                   # of the first message
                   # in the mailbox

### you might want to run NOOP every once in a while
### if you want to keep the connection alive
### refer to: http://www.faqs.org/rfcs/rfc1939.html
### for a more detailed explanation if needed.