perl下载图片

use LWP::Simple;

my $url='http://bbs.chinaunix.net/images/default/logo.gif';
my $content = get($url);
die "Couldn't get it!" unless defined $content;

my $logo = 'logo.gif';
open FH, ">$logo" or die "Can't open $logo for saving!";
binmode FH;
print FH $content;
close FH;