请高手指点，在线等，perl下载问题。

yuqinghua1982

我获取到地址：
http://api.agent.sogou.com:8080/ ... 60240691bf2feeb6aa.
通过这个地址，在浏览器中会弹出一个zip包。

如何通过perl取到这个包，查了相关文档，都没有查到，谢谢各位大侠

FangyuanCheng

lwp-download, wget, curl

或者lwp->get，接受content保存为zip后缀文件。

yuqinghua1982

谢谢，已解决，
use strict;
use warnings;
use LWP::Simple;
open (AB,">/home/myu/weihu/API/aa.txt")|| die("cant open it");
my $url=get('http://api.agent.sogou.com/DownloadReport.report?accountId=xxxx&fid=panama_default_class_53851d0b-59f8-48d1-a12a
-b49812de6bda_ffc0961cdc220060240691bf2feeb6aa');
print AB $url;