#!/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(
  associate_tag => $ENV{AMAZON_ASSOCIATE_TAG},
  token         => $ENV{AMAZON_TOKEN},
  secret_key    => $ENV{AMAZON_SECRET_KEY},
  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";
}