[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;
Commit	Line	Data
86530b38 AT	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;