use Net::Amazon;

my $ua = Net::Amazon->new(token => 'xxxxxxxxxxxxxxxxxxxx', locale => 'us');
my $response = $ua->search(browsenode=>"3839", mode=>"books", keywords=>"perl");

if ($response->is_success()) {
     for my $prop ($response->properties) {
          $books{$prop->publication_date()}{'title'}        = $prop->title();
	  $books{$prop->publication_date()}{'authors'}      = join(", ",$prop->authors());
	  $books{$prop->publication_date()}{'isbn'}         = $prop->isbn();
	  $books{$prop->publication_date()}{'pages'}        = $prop->numpages();
	  $books{$prop->publication_date()}{'publisher'}    = $prop->publisher();
	  $books{$prop->publication_date()}{'image_small'}  = $prop->ImageUrlSmall();
	  $books{$prop->publication_date()}{'image_medium'} = $prop->ImageUrlMedium();
     }	
     print Dumper %books;
}