perl – 请帮我调试使用WWW :: Mechanize(或LWP :: UserAgent)的

一切都很顺利,直到这个周末.他们让他们的网站离线进行定期维护,一旦他们再次在线,我的脚本就不再有用了.在分析了一些事情后,它归结为以下代码失败：

use strict;
use warnings;

use WWW::Mechanize;

my $mec = WWW::Mechanize->new;
$mec->get('https://www.imstores.com/Ingrammicromx/login/login.aspx');

print $mec->content;

代码消失(大约60秒后),并显示以下消息：

Error GETing https://www.imstores.com/Ingrammicromx/login/login.aspx:
Can't connect to www.imstores.com:443 at test.pl line 7.

现在,这些是让我很难找到问题的要点：

>这与网络无关 – 如果我从任何浏览器访问相同的网址,我都会收到该页面.
>如果我在包含Perl安装的精确副本的远程计算机上尝试相同的代码,则可以正常工作.
>如果我在WWW :: Mechanize之前使用Net :: SSL,则需要很长时间,但最终会获得该页面.
>如果我尝试任何其他SSL页面,例如’https://www.paypal.com‘,它的工作速度非常快.
>然后,它再次在他们的预定维护之前工作.

我不知道还有什么可以尝试的.如果我切换到非SSL版本,它可以工作,但我不想这样做,因为我们自动化采购操作.

除了我想到的许多事情,想一想为什么它在远程机器上工作以及为什么我可以在我的浏览器中打开本地的页面：

是否可能被我的SSL公钥阻止？那可能吗？如果是这样,LWP / Mechanize用于SSL会话的公钥是什么？如何使用不同的公钥？

我当前设置的一些数据：

>操作系统：Windows 7旗舰版x64
> Perl版本：5.16.3 x64
> LWP::UserAgent版本：6.05
> WWW::Mechanize版本：1.72
> IO::Socket版本：1.34
> IO::Socket::SSL版本：1.85
> Net::SSL版本：2.85
> Crypt::SSLeay版本：0.64

在此先感谢任何有用的评论.