google搜索LWP下载图片（超时跳过）

#!/usr/bin/perl
#use Acme::PerlTidy;

use Google::Search;
use LWP::UserAgent;
my $query='美女';
my $ua = LWP::UserAgent->new;
$ua->timeout(15);

my $search = Google::Search->Image( query => $query );
while ( my $result = $search->next ) {
    my $url = $result->uri;
    my $name = ( split( '/', $url ) )[-1];
    if ( $name !~ /%/ ) {
        $name = substr( $name, -10 );
        open FILE,">$name" or die "$!";
        my $out=get_image($ua,$url);
        binmode(FILE);
        print FILE $out;
    }
}

sub get_image {
    my ($ua,$url)=@_;
    my $response = $ua->get($url);
    return $response->decoded_content if $response->is_success;
    return undef;
}