#!/usr/bin/perl ########################################### # xx -- # Mike Schilli, 2003 (m@perlmeister.com) ########################################### 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}, ); # Get a request object my $resp = $ua->search(asin => 'B000000WA4'); if($resp->is_success()) { my($cd) = $resp->properties(); print "Album ....... ", $cd->album, "\n"; print "Artist ...... ", $cd->artist, "\n"; print "Year ........ ", $cd->year, "\n"; print "OurPrice .... ", $cd->OurPrice, "\n"; print "ListPrice ... ", $cd->ListPrice, "\n"; print "UPC ......... ", $cd->upc, "\n"; print "nummedia .... ", $cd->nummedia, "\n"; print "label ....... ", $cd->label, "\n"; print "media ....... ", $cd->media, "\n"; print "tracks ...... ", join("\n ", $cd->tracks()), "\n"; } else { print $resp->message(); }