home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netrunner 2004 October
/
NETRUNNER0410.ISO
/
regular
/
ActivePerl-5.8.4.810-MSWin32-x86.msi
/
_2873ce9f4d23217148f9bb8faa0be42e
< prev
next >
Wrap
Text File
|
2004-06-01
|
376b
|
25 lines
#!/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;