Отправка электронной почты через Gmail

Question

У меня есть код отправки электронной почты, который не работает без каких-либо сообщений об ошибках (под "не работает" я имею в виду все швы в порядке, но у меня нет сообщения в моем почтовом ящике ):

use strict;
use warnings;
use Email::Send;
use Email::Simple::Creator;

report_update();

sub report_update {

    my $mailer = Email::Send->new(
        {
            mailer      => 'SMTP::TLS',
            mailer_args => [
                Host     => 'smtp.gmail.com',
                Port     => 587,
                User     => $CONFIG{EMAIL_USER},
                Password => $CONFIG{EMAIL_PASS},
                Hello    => 'localhost',
            ]
        }
    );

    my $email = Email::Simple->create(
        header => [
            From    => $CONFIG{EMAIL_USER},
            To      => $CONFIG{TARGET_EMAIL},
            Subject => 'Updated info finded!',
        ],
        body => 'Updated info finded!',
    );

    eval { $mailer->send($email) };
    die "Error sending email: $@" if $@;

    print "Finished!\n";
}

Не могли бы вы дать мне подсказку, что с ним не так?

Answer 1

Существует Email :: Send :: Gmail , который может сделать вашу жизнь проще.