Вопрос знатокам PERL

[acb]

Кто ответит на небольшой вопрос:

имеется скрипт почты, что-то типа

open (ML,$MAIL_PROGRAM) or return;
print ML "To: $email\n";
print ML "From: \"$myname\" \<$mymail\>\n";
print ML "Cc: \"$myname\" \<$mymail\>\n";
print ML "Subject: $subj\n";
print ML "Return-Path: <$mymail>\n";
print ML "Reply-To: $mymail\n";
print ML "Текст письма\n";
close (MZ);

и имеется файл, например, file.zip

Как сделать так, чтобы при отправке письма файл file.zip автоматически прикреплялся к этому письму?

Заранее благодарю за ответ.

[DMakeev]

Читай rfc2821.

[acb]

Первоначальное сообщение от DMakeev
Читай rfc2821.

Спасибо! Только прошу уточнить,
что такое rfc2821 и где про это почитать.

[DMakeev]

RFC2821 - официальное описание протокола SMTP, с которым тебе и предстоит разобраться С английским дружишь? Если да, то http://www.faqs.org/rfcs/rfc2821.html (если не испугают 79 страниц буржуинского диалекта )

Если лень-матушка, то могу посоветовать сие: http://php.spb.ru/php/mail.html Написано про PHP, но, думаю. под PERL перелопатить не сложно.

[acb]

Благодарю!

Придется почитать.
Потом доложу о результатах.

[DMakeev]

acb Успехов.

[acb]

Похоже разобрался.
Все довольно просто:

use MIME::Lite;

тут само письмо

### Attach:
$msg->attach(Type =>'application/x-zip-compressed',
Path =>'путь до/file.zip',
Filename =>'file.zip'
);

MIME::Lite->send("sendmail", "/usr/sbin/sendmail -t");
$msg->send();

Похоже, что так.