home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / hostmgr.zip / POP3.PL < prev    next >
Perl Script  |  1999-07-21  |  576b  |  24 lines
  1. #!perl
  2.  
  3.    $filename = <STDIN>; chomp $filename;
  4.    $filename =~ s/(.*?)[^\\^\/]*?$/$1/i;
  5.    print "<$filename><$1>\n";
  6.    die;
  7.   
  8.   use Mail::POP3Client;
  9.   
  10.   $pop = new Mail::POP3Client( USER     => "whost",
  11.                    PASSWORD => "warrior2",
  12.                    HOST     => "ns.kursknet.ru" );
  13.  
  14.   print $pop->Message()."\n";
  15.   print $pop->Alive()."\n";
  16.   print $pop->Size()."\n";
  17.   print $pop->Count()."\n";
  18.  
  19.   
  20.   for ($i = 1; $i <= $pop->Count(); $i++) {
  21.       $pop->Delete($i);
  22.       print "$i\n";
  23.                                            }
  24.   $pop->Close();