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

##</code><code>##

$VAR1 = '2005-07-12';
$VAR2 = {
          'image_medium' => 'http://ecx.images-amazon.com/images/I/21mkODqYmdL.jpg',
          'authors' => 'Damian Conway',
          'title' => 'Perl Best Practices',
          'isbn' => '0596001738',
          'publisher' => 'O\'Reilly Media, Inc.',
          'image_small' => 'http://ecx.images-amazon.com/images/I/11OlnA6slCL.jpg',
          'pages' => '542'
        };