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";
}