ActivePerl + Net::Amazon モジュールでサンプルプログラムを作ってみました。 use strict; use Net::Amazon; use encoding "cp932"; my $amazon = Net::Amazon->new( token => '自分のSubscription ID', locale => 'jp', ); my $asin = ['4101327181']; my $res = $amazon->search(asin => $asin); unless ($res->is_success()) { print $res->message(), "\n"; exit; } foreach my $item ($res->properties) { print "Asin: ", $item->Asin, "\n"; print "Pr