use strict;
use warnings;
use HTTP::Lite;

my $url = 'http://ecs.amazonaws.com/onca/xml?Service=AWSECommerceService&Version=2005-03-23&Operation=ItemSearch&ContentType=text%2Fxml&SubscriptionId=xxxxxxxxxx&SearchIndex=Music&Keywords=5099921688607&ResponseGroup=OfferFull,Small';

my $http = new HTTP::Lite;

my $req = $http->request( $url )    or die "Unable to get document: $!";
print $http->body(), "\n";