#!/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);
printf("%s  %s\n", $_->ASIN, $_->Title) for (
	$ecs->search(
	Operation      => 'ItemSearch',
	Keywords       => shift || 'perl',
	SearchIndex    => 'Books',
	ResponseGroup  => 'ItemAttributes',
));