#!~/perl5/perlbrew/perls/perl-5.28.1/bin/perl
use Modern::Perl;
use WWW::Scraper::ISBN;

my $scraper = WWW::Scraper::ISBN->new();
$scraper->drivers("LOC", "ISBNnu");

my $isbn = "9780134511184";
my $record = $scraper->search($isbn);
if($record->found)
{
    print "Book ".$record->isbn." found by driver ".$record->found_in."\n";
    my $book = $record->book;
    print $book->{'title'};
    print $book->{'author'};
}
else
{
    print $record->error;
}