#!/usr/local/bin/perl

use strict;
use Net::Amazon;
use Data::Dumper; # for debugging
use Log::Log4perl qw(:easy);
Log::Log4perl->easy_init($DEBUG);

my $ua = Net::Amazon->new(token => $ENV{AMAZON_TOKEN});

# Get a request object
my $response = $ua->search(exchange => 'Y04Y3424291Y2398445');

if($response->is_success()) {
    my $result = $response->result();
    print $result->ExchangeEndDate(), "\n";
} else {
        print "Error: ", $response->message(), "\n";
}