无法使用Perl的LWP :: Simple从给定的网站下载图像

Question

我正在使用此web中的以下API，该API可直接下载给定图像：

http://api.brain-map.org/api/v2/image_download/69750516?downsample=4

（其中69750516和4是变量）。

我已将其引入此perl脚本中：

#!/usr/bin/perl -w
use strict;
use LWP::Simple;

my$url="http://api.brain-map.org/api/v2/image_download/69750516?downsample=4";
my$file=get $url or die "failed at getting ".$url;

if ($file) {         
        open(FILE, ">", "myimage.jpg");
        print FILE $file;
        close FILE; }

但是输出是：

$ perl myscript.pl 
failed at getting http://api.brain-map.org/api/v2/image_download/69750516?downsample=4 at myscript.pl line 6.

实际上，几个月前它起作用了。我不知道问题是由于原始网络的变化，还是由于Perl或LWP模块的新功能引起的。欢迎提供有关充分使用LWP或其他Perl模块的建议。