1#!/usr/bin/perl 2############################################################ 3# musiclabel musiclabel name 4# Christopher Boumenot <boumenot@gmail.com>, 2006 5############################################################ 6 7use strict; 8use warnings; 9 10use Net::Amazon; 11use Net::Amazon::Request::MusicLabel; 12 13#use Log::Log4perl qw(:easy); 14#Log::Log4perl->easy_init($DEBUG); 15 16 17die "usage: $0 musiclabel\n(use Arista as an example)\n" unless defined $ARGV[0]; 18 19my $ua = Net::Amazon->new( 20 associate_tag => $ENV{AMAZON_ASSOCIATE_TAG}, 21 token => $ENV{AMAZON_TOKEN}, 22 secret_key => $ENV{AMAZON_SECRET_KEY}, 23); 24 25my $req = Net::Amazon::Request::MusicLabel->new( 26 musiclabel => $ARGV[0], 27); 28 29# Response is of type Net::Amazon::MusicLabel::Response 30my $resp = $ua->request($req); 31 32if($resp->is_success()) { 33 print $resp->as_string, "\n"; 34} else { 35 print $resp->message, "\n"; 36} 37