小编use*_*186的帖子

我正在尝试使用它Email::Send::Gmail来发送电子邮件，但由于某种原因，我收到一条错误消息，不允许我连接。

代码是标准示例：

#!/usr/bin/perl
use strict;
use warnings;
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;

my $email = Email::Simple->create(
header => [
    From    => 'myaddress@gmail.com',
    To      => 'myaddress@gmail.com',
    Subject => 'Server down',
],
body => 'The server is down. Start panicing.',
);

my $sender = Email::Send->new(
{   mailer      => 'Gmail',
    mailer_args => [
        username => 'myaddress@gmail.com',
        password => 'XXXX',
    ]
}
);
eval { $sender->send($email) };
die "Error sending email: $@" if $@;

确切的错误是：

Email::Send::Gmail: error connecting to server smtp.gmail.com …