#!/usr/bin/perl
use strict;
use warnings;
use Google::Search;
use XXX;
my $key = 'ABQIAAAAtDqLrYRkXZ61bOjIaaXZyxQRY_BHZpnLMrZfJ9KcaAuQJCJzjxRJoUJ6qIwpBfxHzBbzHItQ1J7i0w';
my $referrer = 'http://www.my.site';
my $search = Google::Search->Books( q => '9529950845', key=>$key, referrer=>$referrer );
my $results = $search->all;
my $first = $search->first;
warn $first->get( 'tbUrl' );
warn join " ", map { $first->$_ } qw/tbUrl tbWidth tbHeight/;