APIからXMLデータ取得してそのまま標準出力

perlとも友好関係を結ぼうと試し中

#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use XML::Simple;

my $ua = LWP::UserAgent->new;
my $r  = $ua->get('http://search.hatena.ne.jp/keyword?word=ABC&mode=rss&ie=utf8&page=1');

binmode(STDOUT, ":utf8");
print XMLout(XMLin( $r->content ));