XML::Simple - XMLデータの読み込みと書き出し

#!/usr/bin/perl

my $dev_key = 'Dev Token or Subscription ID Here';
my $af_tag = 'Associate Tag Here';

my $keyword = shift @ARGV or die "Usage: perl amazon_http.pl <keyword>\n";
my $url = "http://webservices.amazon.co.jp/onca/xml3?dev-t=" . $dev_key . "&t=" . "$af_tag" . "&KeywordSearch=" . $keyword . "&mode=photo-jp&type=lite&f=xml&locale=jp";

use strict;

use XML::Simple;
use LWP::Simple;
use Jcode;
use Data::Dumper;

my $content = get($url);
die "Could not retrieve $url" unless $content;

my $xmlsimple = XML::Simple->new();
my $response = $xmlsimple->XMLin($content);
print Dumper($response);