perl上载图片

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;