projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Holding filehandle open
[p5sagit/p5-mst-13.2.git]
/
lib
/
Net
/
demos
/
pop3
1
#!/usr/local/bin/perl -w
2
3
use blib;
4
use Net::POP3;
5
use Getopt::Long;
6
7
$opt_debug = 0;
8
$opt_user = undef;
9
10
GetOptions(qw(debug user=s));
11
12
$pop = Net::POP3->new('backup3', Debug => $opt_debug ? 6 : 0);
13
14
$user = $opt_user || $ENV{USER} || $ENV{LOGNAME};
15
16
$count = $pop->login($user);
17
18
if($count)
19
{
20
$m = $pop->get(1);
21
print @$m if $m;
22
}
23
24
$pop->quit;