use Net::Amazon;
use Net::Amazon::Request::Author;
use Data::Dumper;

my $ua = Net::Amazon->new(token => 'XXXXXX', locale => 'us', max_pages => 5);
my $req = Net::Amazon::Request::Author->new(author => 'Terry Pratchett');
my $resp = $ua->request($req);
if ($resp->is_success()) {
   # print each result book as csv
   my $i = 10000;
   for my $prop ($resp->properties) {
       print $i++ . ",";
       print "\"" . $prop->isbn() . "\",";
       print "\"" . $prop->title() . "\",";
       print "\"" . $prop->publisher() . "\",";
       print "\"" . $prop->binding() . "\",";
       print $prop->year();
       print "\n";
   }

   # print each author relationship as cvs
   $i = 10000;
   for my $prop ($resp->properties) {
       for my $author ($prop->authors()) {
          print $i . ",";
          print "\"" . $author . "\"";
          print "\n";
       }
       $i++;
    }
}