#!/usr/local/bin/perl -w
use blib;
use Net::POP3;
use Getopt::Long;
$opt_debug = 0;
$opt_user = undef;
GetOptions(qw(debug user=s));
$pop = Net::POP3->new('backup3', Debug => $opt_debug ? 6 : 0);
$user = $opt_user || $ENV{USER} || $ENV{LOGNAME};
$count = $pop->login($user);
if($count)
{
$m = $pop->get(1);
print @$m if $m;
}
$pop->quit;