perl&lwp下载图片功能

#!/usr/bin/perl -w

use strict;
use LWP::Simple;
binmode STDOUT,':encoding(UTF-8)';

my $imgurl = "http://imgsrc.baidu.com/forum/pic/item/0ff41bd5ad6eddc43453f36739dbb6fd536633f1.jpg";
my $geturl=undef;
$geturl = get $imgurl;
die "nothing" unless defined $geturl;
open(my $IMAGE,">G\:\\perlcode\\image\\123.jpg");
binmode $IMAGE;
print $IMAGE  $geturl;