有关LWP模块的问题

代码如下：
#!/usr/bin/perl -w
use LWP::Simple;
my $content = get('http://www.ensembl.org/Homo_sapiens/exportview?format=fasta&l=8%3A43397-43980&action=export&_format=Text&output=txt');
print $content;

但是得到错误信息：
Use of uninitialized value in print at test.pl line 4.

可是把上面的网址：http://www.ensembl.org/Homo_sapiens/exportview?format=fasta&l=8%3A43397-43980&action=export&_format=Text&output=txt用浏览器是可以打开并查看内容的。

请问是什么原因LWP模块不能解释这个网页呢。是不是这个网站禁用了Perl获取代码啊？

谢谢大家！


我后来试了试，直接get这个网站的主页也得到相同的错误信息：

#!/usr/bin/perl -w
use LWP::Simple;
my $content = get([url]http://www.ensembl.org/'[/url]);
print $content;

别的网站都可以的啊！

抓包，比较

use LWP; use HTTP::Request::Common qw(GET); ++$|; my $ua=new LWP::UserAgent; print $ua->request(GET 'http://www.ensembl.org/Homo_sapiens/exportview?format=fasta&l=8%3A43397-43980&action=export&_format=Text&output=txt')->as_string;