Perl脚本在本地计算机上执行时发送电子邮件，但在服务器上托管时不发送

Question

我有一个Perl cgi脚本，应该通过AJAX请求访问。该脚本应该将邮件发送到电子邮件并准备HTML响应。问题是该脚本在我的本地计算机上运行，​​但它在mailform.pl第389行中提供“Net :: SMTP :: SSL连接被拒绝”。脚本中的第389行是这一行：  

( $smtp = Net::SMTP::SSL->new(
                    'smtp.gmail.com',
                    Port=>465,
                    Debug   => 1,
                    Timeout => 60,
                    Hello => 'smtp2.dnikolov.co.nf@gmail.com',
                    Notify =>['SUCCESS','FAILURE'],
                    Debug => 1
                  ) )or die "Cant connect to server".$@.$!;


( $smtp = Net::SMTP::SSL->new(
                    'smtp.gmail.com',
                    Port=>465,
                    Debug   => 1,
                    Timeout => 60,
                    Hello => 'smtp2.dnikolov.co.nf@gmail.com',
                    Notify =>['SUCCESS','FAILURE'],
                    Debug => 1
                  ) )or die "Cant connect to server".$@.$!;

这是执行脚本实际发送的hole子例程：

以下是开发人员控制台中的输出结果：