Работа с почтой в Perl

Для работы с почтой в Perl можно использовать модуль Email::Sender.

Пример отправки простого текстового письма:

use Email::Sender::Simple qw(sendmail);

use Email::Simple;

use Email::Simple::Creator;

my $to = 'recipient@example.com';

my $from = 'sender@example.com';

my $subject = 'Test Email';

my $body = 'Hello World!';

my $email = Email::Simple->create(

header => [

To => $to,

From => $from,

Subject => $subject,

],

body => $body,

);

sendmail($email);

Пример отправки письма с вложением:

use Email::Sender::Simple qw(sendmail);

use Email::MIME;

my $to = 'recipient@example.com';

my $from = 'sender@example.com';

my $subject = 'Test Email with Attachment';

my $body = 'Hello World!';

my $attachment = Email::MIME->create(

attributes => {

filename => 'test.txt',

content_type => 'text/plain',

disposition => 'attachment',

},

body => 'This is a test attachment.',

);

my $email = Email::MIME->create(

header_str => [

To => $to,

From => $from,

Subject => $subject,

],

parts => [

Email::MIME->create(

attributes => {

content_type => 'text/plain',

},

body => $body,

),

$attachment,

],

);

sendmail($email);

При использовании Email::Sender::Simple для отправки писем необходимо настроить SMTP-сервер в конфигурационном файле или передать параметры через переменные окружения.