home *** CD-ROM | disk | FTP | other *** search
- #!/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;
-