1#!/usr/local/bin/perl 2 3use strict; 4use Net::Amazon; 5use Data::Dumper; # for debugging 6use Log::Log4perl qw(:easy); 7Log::Log4perl->easy_init($DEBUG); 8 9my $ua = Net::Amazon->new( 10 associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, 11 token => $ENV{AMAZON_TOKEN}, 12 secret_key => $ENV{AMAZON_SECRET_KEY}, 13); 14 15# Get a request object 16my $response = $ua->search(exchange => 'Y04Y3424291Y2398445'); 17 18if($response->is_success()) { 19 my $result = $response->result(); 20 print $result->ExchangeEndDate(), "\n"; 21} else { 22 print "Error: ", $response->message(), "\n"; 23} 24