#!/usr/bin/perl
######################################################
# Mike Schilli, 2004
# Print out the 10 best-selling german Jazz CDs
# (Perl implementation of the Java program presented 
#  in iX 06/2004, "Handelspartner", p. 125, 
#  by Ingo Macherius).
######################################################
use warnings;
use strict;

use Net::Amazon;

my $ua = Net::Amazon->new(
  token     => $ENV{AMAZON_TOKEN},
  locale    => 'de',
  max_pages => 1,
);

my $resp = $ua->search(
  browsenode => '255919',
  mode       => 'pop-music-de',
  sort       => '+salesrank',
);

for ($resp->properties) {
  print $_->artist(), ": ", 
        $_->album(), " (",
        $_->OurPrice(), ")\n";
}