#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
								 
use WebService::ISBNDB::API::Books;

my $book = WebService::ISBNDB::API->new();

my $result = WebService::ISBNDB::API::Books->search( 
                                                     { api_key => '6B5XBPOQ',
                                                       isbn => '0596002068' }
                                                   ); # thought I would need $book somewhere here
print "Content-type: text/plain\n\n";
print Dumper($result);

##</code><code>##

$VAR1 = bless( do{\(my $o = undef)}, 'WebService::ISBNDB::Iterator' );

##</code><code>##

my $title = $result->get_title();