1#!/usr/bin/perl 2########################################### 3use warnings; 4use strict; 5 6use Net::Amazon; 7 8my $ua = Net::Amazon->new( 9 associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, 10 token => $ENV{AMAZON_TOKEN}, 11 secret_key => $ENV{AMAZON_SECRET_KEY}, 12); 13 14my $resp = $ua->search( 15 asin => [qw(0596005083 0596005008 0672326043)], 16 #asin => "0596005083", 17); 18 19if($resp->is_success()) { 20 for($resp->properties()) { 21 print $_->as_string(), "\n"; 22 } 23} else { 24 print "Error: ", 25 $resp->message(), "\n"; 26} 27