Возникла тут необходимость отправлять почту из перлового скрипта. Так вот, вызываем Печкина, и “отправляем посылку родителям” с помощью модуля Net::SMTP. В общем, это не сложно:

use Net::SMTP; # Подключаем модуль
$smtp = Net::SMTP->new('smtp.mail.ru'); # Указываем SMTP сервер - здесь лучше указать smtp сервер своего провайдера или какой укажет хостер.

$smtp->mail('noreply@flora.org.ru'); # Указываем, от кого письмо.
$smtp->to('user@uflora.org.ru'); # Указываем, кому письмо.
$smtp->data(); # Начинаем посылку данных
$smtp->datasend("To: user <user@uflora.org.ru>\n"); # Указываем информацию для поля "Кому"
$smtp->datasend("\n"); 
$smtp->datasend("...лохматость повысилась...\n"); # текст сообщения.
$smtp->dataend(); # заканчиваем посылку даных.
$smtp->quit; # закрываем соединение.

Боле подробно о модуле и его возможностях можно почитать тут:
search.cpan.org - на английском.
wmate.ru

Жалко, что умер perl.ru, а домен остается занятым =(

Популярность: 13%