perl отправка почты с вложением

интернет программирование почта perl

Пытаюсь сформировать и отправить письмо средствами perl+sendmail

#!/usr/bin/perl -w
use strict;
use MIME::Entity;

my $message = MIME::Entity->build(
From => '[email protected]',
To => '[email protected]',
Subject => 'База данных',
Data => "база данных тут",
Charset => "koi8-r",
Encoding=> "8bit",
);
$message->attach(
Path => "test.txt",
Type => "text/plain",
Encoding => "base64",
Disposition=>"attachment",
);

open SENDMAIL, "|/usr/sbin/sendmail -t" or die "sendmail: $!";
$message->print(\*SENDMAIL);
close SENDMAIL or die "sendmail failed: $!";

Далее стартую скрипт: perl mail.pl
Он молчит примерно 50-60 секунд и ничего не выдает.
т.е. скрипт завершается не выдавая никаких ошибок.
sendmail свежеустановленный.
Ответы:
less /var/log/mail.log ?
А попробуйте просто
$message->send;


13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.