1#!/usr/bin/perl
2###########################################
3# keyword - search by keyword
4#     keyword what_to_search_for mode
5# Mike Schilli <mschilli1@aol.com>, 2003
6###########################################
7
8use strict;
9use warnings;
10
11use Net::Amazon;
12use Net::Amazon::Property;
13use Net::Amazon::Request::Keyword;
14
15die "usage: $0 keyword what mode\n(use " .
16    "'perl power'/books as an example)\n"
17    unless defined $ARGV[1];
18
19my $ua = Net::Amazon->new(
20    associate_tag => $ENV{AMAZON_ASSOCIATE_TAG},
21    token         => $ENV{AMAZON_TOKEN},
22    secret_key    => $ENV{AMAZON_SECRET_KEY},
23    max_pages   => 5,
24);
25
26my $req = Net::Amazon::Request::Keyword->new(
27    keyword   => $ARGV[0],
28    mode      => $ARGV[1],
29);
30
31 # Response: Net::Amazon::Keyword::Response
32my $resp = $ua->request($req);
33
34for ($resp->properties) {
35   print $_->as_string()."\n";
36}
37