Я попытался использовать 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!".
Что я не правельно делаю? |