1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
use Net::Amazon; my $ua = Net::Amazon->new( associate_tag => 'MY_TAG', token => 'MY_TOKEN', secret_key => 'MY_KEY'); # Get a request object my $response = $ua->search(asin => '0201360683'); if($response->is_success()) { print $response->as_string(), "\n"; } else { print "Error: ", $response->message(), "\n"; }
Quote[1] Michael Schilli, "Perl Power!: A JumpStart Guide to
Programming with Perl 5", 1998, $13.36, 0201360683
QuoteError: B005F6C6M4 is not a valid value for ItemId. Please change this value and retry your request.