WebService::Audioscrobblerってのがあるんだけど、Artist,Track,Tagにしか対応してないのでAlbumにも対応させてみた。

WebService-Audioscrobbler-wAlbum.tar.gz

use WebService::Audioscrobbler;

my $ws = WebService::Audioscrobbler->new;
my $user  = $ws->user('kzfm');

my @albums  = $user->albums;

for my $album (@albums) {
  print $album->name . ":". $album->asin . "\n" if defined $album->asin;
}

さて実行

$ perl wa.pl
Bricolage:B000003S7Y
Hospital Mix 4:B0006ULVZW
Think Tank:B0000931OG
Bass Is Maternal:B00004T90L
Tally Ho!:B00000D9VK
Emperor Tomato Ketchup:B000002HK2
Sweetbox:B00000AFYM
Bodily Functions:B00005B9JQ
Hand on the Torch:B000005HB8
Supergrass:B00004S95F
Temperamental:B00001QENY
Inside Life:B0000046KU
Lifeforms (disc 2):B000003RVR
Night Food:B0000677MF
Hail to the Thief:B000092ZYX
My Point of View:B0009XE874
The Understanding:B0009RQRP6
On:B000002BCA
Amnesiac:B00005B4GU
無罪モラトリアム:B00000JD1I