Сайтостроение

Проверка почты средствами perl

Опубликовано Виталий Скальный
#!c:\Perl\bin\perl.exe
 use Mail::POP3Client;
 $pop = new Mail::POP3Client(
 USER => '',
 PASSWORD => '',
 HOST => '',
 PORT => 110,
 AUTH_MODE => 'PASS',
 TIMEOUT => 10);
 print "В вашем почтовом ящике ",$pop->Count()," сообщений.\n"