1#!/usr/bin/perl 2########################################### 3use warnings; 4use strict; 5 6use Net::Amazon; 7 8#use Log::Log4perl qw(:easy); 9#Log::Log4perl->easy_init($DEBUG); 10 11my $ua = Net::Amazon->new( 12 associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, 13 token => $ENV{AMAZON_TOKEN}, 14 secret_key => $ENV{AMAZON_SECRET_KEY}, 15); 16 17die "usage: $0 isbn\n" unless defined $ARGV[0]; 18 19my $resp = $ua->search( 20 isbn => $ARGV[0], 21); 22 23if($resp->is_success()) { 24 print $resp->as_string(), "\n"; 25} else { 26 print "Error: ", 27 $resp->message(), "\n"; 28} 29