ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

Включи дебажный режим и посмотри, что рисует скрипт

Код:

$smtp = Net::SMTP->new('smtp.mail.ru', Timeout => 30, Debug => 1);

Скорее всего, тебе выдастся

Цитата:

503 Administrative prohibition -- authorization required. Users in your domain are not allowed to send email without authorization. See http://www.mail.ru/pages/help/261.html for details.

PS. Рабочий код

Код:

#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new (
  Host => 'smtp.mail.ru',
  Timeout => 30,
  Debug => 1
);
$smtp->auth('sde', 'PASSWORD');
$smtp->mail('sde@mail.ru');
$smtp->to('maskit7@mail.ru');
$smtp->data();
$smtp->datasend("To: maskit7\@mail.ru\n");
$smtp->datasend ("Subject: Test Subject");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;

Для авторизации требуются модули Mime::Base64 и Authen::SASL