use strict;
use warnings;
use WebService::Simple;
use Data::Dumper;

my $google = WebService::Simple->new(
    base_url        => "http://ajax.googleapis.com/ajax/services/search/web",
    response_parser => 'JSON',
    params          => { v => "1.0", rsz=> "large" }
);

my $response =  $google->get( { q => "cat" , start=> 0 } );
print Dumper $response->parse_response;