1#!/usr/bin/perl
2############################################################
3# Similar test
4############################################################
5use strict;
6use warnings;
7
8use Net::Amazon;
9use Net::Amazon::Request::Similar;
10use Log::Log4perl qw(:easy);
11
12#Log::Log4perl->easy_init($DEBUG);
13
14my $ua = Net::Amazon->new(
15    associate_tag => $ENV{AMAZON_ASSOCIATE_TAG},
16    token         => $ENV{AMAZON_TOKEN},
17    secret_key    => $ENV{AMAZON_SECRET_KEY},
18);
19
20my $req = Net::Amazon::Request::Similar->new(
21    similar  => 'B00005B6TL',
22);
23
24my $resp = $ua->request(
25    $req,
26);
27
28if($resp->is_success()) {
29    for($resp->properties()) {
30        print $_->as_string(), "\n";
31    }
32} else {
33    print "Error: ",
34          $resp->message(), "\n";
35}
36