Select Code to Download

#!/usr/bin/perl

...
                                                   ); # thought I woul
+d need $book somewhere here
print "Content-type: text/plain\n\n";
print Dumper($result);

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

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