xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/pop3 (revision 0:68f95e015346) 
1#!/usr/local/bin/perl -w
2
3use blib;
4use Net::POP3;
5use Getopt::Long;
6
7$opt_debug = 0;
8$opt_user = undef;
9
10GetOptions(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
18if($count)
19 {
20  $m = $pop->get(1);
21  print @$m if $m;
22 }
23
24$pop->quit;
25