#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
use Data::Dumper;
								 
use WebService::ISBNDB::API (api_key => '12341234');
use WebService::ISBNDB::API::Books;

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

my $title = $book->get_title();
my $authors = $book->get_authors_text();

print "Content-type: text/plain\n\n";
print Dumper($title, $authors);

1;