Perl 通过Gmail发送电子邮件

Perl 通过Gmail发送电子邮件,perl,email,gmail,ssl,Perl,Email,Gmail,Ssl,我的电子邮件发送代码无法正常工作,但没有任何错误消息(我说的“不工作”是指所有接缝都正常,但我的邮箱中没有任何消息): 你能给我一个提示吗?有一个可以让你的生活更轻松的方法。不相关但过去时的“find”是“find”而不是“find”。谢谢。我会努力学习我的英语。谢谢你给我指这个模块!现在我在我的代码中使用它,但问题仍然在我脑海中:为什么这个代码不起作用? use strict; use warnings; use Email::Send; use Email::Simple::Creator;

我的电子邮件发送代码无法正常工作,但没有任何错误消息(我说的“不工作”是指所有接缝都正常,但我的邮箱中没有任何消息):


你能给我一个提示吗?

有一个可以让你的生活更轻松的方法。

不相关但过去时的“find”是“find”而不是“find”。谢谢。我会努力学习我的英语。谢谢你给我指这个模块!现在我在我的代码中使用它,但问题仍然在我脑海中:为什么这个代码不起作用?
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";
}