perl下载网页，提示错误500

use utf8;
use LWP::Simple;

$url="http://www.chinaip.com.cn/zljs/hyjs-jieguo-mixed.jsp?firstsearch=1&name=cnipr&password=123456&searchword=%231330&searchChannel=&searchFrom=0&searchType=0&FTS=0&t=IPC&channelid=14,15,16,17";

my $code= getstore($url,"1.htm");
print $code;

要下载这类网页，但是总提示错误500.求助各位大虾帮看看是为什么?！！！

你是在web服务器上运行吧?

Perl和php 不一样,必须先打印html 头,否则一律错误拒绝输出

你必须在脚本最前面加html 头

print "Content-type: text/html; charset=utf-8\n\n";