运行Perl脚本通过DOS命令提示符调用网页?

我的工作场所使用XP,我试图运行下面的脚本

use strict; use warnings; use WWW::Mechanize; my $mech = WWW::Mechanize->new(); $mech->get( 'http://google.com' ); $mech->submit_form( form_number => 0, fields => { q => 'led zeppelin', } ); print $mech->content; 

但是,当我尝试通过DOS运行脚本时,总是收到一条错误消息,指出无法加载页面,因为我的计算机由于超时而无法连接到google.com:80。

据我所知,这不是一个互联网问题,因为我的浏览器似乎运行良好。 我想知道的是,有没有其他的权限或参数设置,使网站可以加载? 如果没有,问题是什么?

也许互联网只能通过工作场所的代理服务器访问,这是一种常见的做法。

 $mech->proxy(['http', 'ftp'], 'http://proxy.example.com:8000/'); 

请参阅如何通过代理服务器使用WWW :: Mechanize?WWW::Mechanize::FAQ