projects
/
OpenSPARC-T2-DV
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Initial commit of OpenSPARC T2 design and verification files.
[OpenSPARC-T2-DV]
/
tools
/
perl-5.8.0
/
lib
/
5.8.0
/
Net
/
demos
/
pop3
#!/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
;