[置顶] 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;