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