HTTP::Request::Common

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common;
use strict;
use warnings;

my $url = 'http://webservices.amazon.co.jp/onca/xml';
my $ua = new LWP::UserAgent;
my $access_key = 'your_access_key';
my $affiliate_tag = 'your_affiliate_tag';

my $parameter = [
Service => 'AWSECommerceService',
Operation => 'ItemSearch',
SearchIndex => 'Books',
ResponseGroup => 'Medium',
Condition => 'All',
Availability => 'Available',
MerchantId => 'All',
AWSAccessKeyId => $access_key,
AssociateTag => $affiliate_tag,
Keywords => $ARGV[0],
];

my $request = POST($url, $parameter);
my $response = $ua->request($request);

if ($response->is_success) {
print $response->content;
}