#!/usr/bin/perl
###########################################
# keyword - search by keyword
#     keyword what_to_search_for mode
# Mike Schilli <mschilli1@aol.com>, 2003
###########################################
use strict;
use warnings;

use Net::Amazon;
use Net::Amazon::Request::Keyword;

die "usage: $0 keyword what mode\n(use " .
    "perl/books as an example)\n" 
    unless defined $ARGV[1];

my $ua = Net::Amazon->new(
    token       => 'YOUR_AMZN_TOKEN',
    max_pages   => 5,
);

my $req = Net::Amazon::Request::Keyword
          ->new(
    keyword   => $ARGV[0],
    mode      => $ARGV[1],
);

 # Response: Net::Amazon::Keyword::Response
my $resp = $ua->request($req);

for ($resp->properties) {

   next unless $_->Catalog() eq "Book";

   print join(", ", $_->Asin(),
         join("/", $_->authors()),
         $_->title(),
         $_->OurPrice()), "\n";
}