| Я попытался использовать Mail::POP3Client. Хочу хотябы связатся с почтовиком: 
 
 CODE:#!/usr/bin/perl
 
 use Mail::POP3Client;
 
 $login = "lamerizlamerov";
 $password = "7777777";
 $mailserver = "pop3.mail.ru";
 
 $pop = new Mail::POP3Client( USER     => $login, PASSWORD => $password, HOST     => $mailserver);
 
 print "Content-type: text/html\n\n";
 
 if ($pop->Count() == -1 ) {
 print "Bad connect!";
 } else {
 print "In your box ",$pop->Count()," messages.<BR>n";
 }
 
 
 Пишет "Bad connect!".
 Что я не правельно делаю?
 |