#!/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);