「Data::DumperでXML::RSSのparseした結果を表示しようとしたら文字化け」を回避

Data::DumperでUTF-8フラグつき文字列をエスケープさせないようにするには ? ku

#!/usr/local/bin/perl -w
use strict;
use lib qw(/home/hoge/perl/lib/5.10.0 /home/hoge/perl/lib/site_perl /home/hoge/perl/lib/perl5);
use utf8;
use LWP;
use Data::Dumper;
{
    package Data::Dumper;
    sub qquote { return shift; }
}
$Data::Dumper::Useperl = 1;
use XML::RSS;
binmode(STDERR, ':raw :encoding(eucjp)');
#binmode(STDIN, ':raw :encoding(utf8)');
#binmode(STDOUT, ':raw :encoding(utf8)');

my $browser = LWP::UserAgent->new;
my $url = "http://hoge.co.jp/rsss";
my $response = $browser->get($url);
my $html = $response->content;

#
# print rss
#
print "Content-Type: application/xml; charset=utf-8", "\n\n";
print $html;

#
# parse rss
#
my $rss = new XML::RSS;
$rss->parse($html);
foreach my $item (@{$rss->{'items'}}) {
    print "title: $item->{'title'}\n";
    print "link: $item->{'link'}\n\n";
}

#
# dump $rss
#
my $d = Data::Dumper->new([$rss]);
print $d->Dump;