#!/usr/local/bin/perl
use strict;
use warnings;
use lib qw (./lib);
use Net::ECS4;

my $ecs = Net::ECS4->new(
	SubscriptionId => '05E4Z6BS905VMVE919G2',
	AssociateTag   => 'naoyadyndnsor-22',
	Version        => '2005-07-26'
);
$ecs->ua->timeout(10);
my $item = $ecs->search(
	Operation      => 'ItemLookup',
	ItemId         => shift || 'B0009S2PIS',
	ResponseGroup  => 'Large',
);

print $item->ASIN, "\n";
print $item->Title, "\n";
print $item->ProductGroup, "\n";
print $item->SalesRank, "\n";
if ($item->ProductGroup eq 'Book') {
	print $item->PublicationDate, "\n";
	print $item->Publisher, "\n";
	print $item->ListPrice, "\n";
	print $item->NumberOfPages, "\n";
	print $item->Binding, "\n";
} elsif ($item->ProductGroup eq 'Music') {
	print $item->Binding, "\n";
	print $item->ReleaseDate, "\n";
	print $item->ListPrice, "\n";
	print $item->FormattedListPrice, "\n";
	print $item->EAN, "\n";
	print $item->Format || '', "\n";
	print $item->NumberOfDiscs, "\n";
} elsif ($item->ProductGroup eq 'CE') {
	print $item->Brand, "\n";
	print $item->EAN, "\n";
	print $item->Manufacturer, "\n";
	print $item->NumberOfItems, "\n";
	print $item->ReleaseDate, "\n";
} elsif ($item->ProductGroup eq 'DVD') {
	print $item->AspectRatio, "\n";
	print $item->DVDLayers, "\n";
	print $item->DVDSides, "\n";
	print $item->EAN, "\n";
	print $item->NumberOfDiscs, "\n";
	print $item->RegionCode, "\n";
	print $item->ReleaseDate, "\n";
	print $item->Studio, "\n";
}