Perl отправка электронной почты работает в одной системе, но не в другой

Question

У меня есть простой почтовый код отправки письма.

 use strict;
    use warnings;
    use Time::Format;
    use Email::MIME;
    use Email::Sender::Simple qw(sendmail);
    use Email::Sender::Transport::SMTP;
    my $message = Email::MIME->create(
        header_str => [
            From    => 'me@provider.com',
            To      => 'me@provider.com',
            Subject => 'test',
        ],
        attributes => {
            encoding => 'quoted-printable',
            charset  => 'ISO-8859-1',
        },
        body_str => 'stefy test',
    );
    my $transport = Email::Sender::Transport::SMTP->new({
        host => 'my.server.smtp',
        port => 25,
    });
    sendmail($message, { transport => $transport });

Я могу успешно запустить его в одной системе, но не в другой.

1. Windows 7 professional -> успех

2. Windows Server 2008 -> ошибка

это исключение, которое я получаю:

unable to establish SMTP connection to my.server.smtp port 25

    Trace begun at D:\strawberryperl\perl\site\lib\Email\Sender\Transport\SMTP.pm line 193   Email::Sender::Transport::SMTP::_throw('Email::Sender::Transport::SMTP=HASH(0x38
    0fef8)', 'unable to establish SMTP connection to my.server.smtp port 25') called at D:\strawberryperl\perl\site\lib\Email\Sender\Transport\SMTP.pm line 143

Есть идеи?

спасибо

Answer 1

обновление версии perl решило проблему.

Это Perl 5, версия 26, Subversion 2 (v5.26.2), созданная для MSWin32-x64-multi-t. hread