#!/usr/local/bin/perl
#require ( 'Net/POP3.pm' );
use Net::POP3;
$pop = Net::POP3->new('MAILSERVER');
$pop->user("USRNAME");
$pop->pass("PASSWARD");
$pop->quit();