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