use strict;
use utf8;
use XML::Feed;
use Template;

my $feed = XML::Feed->parse( URI->new('http://d.hatena.ne.jp/tomi-ru/rss2') )
    or die XML::Feed->errstr;

binmode STDOUT => ':utf8';

Template->new->process(\*DATA, { 
    feed => $feed,
});

__DATA__
<h5><a href="[% feed.link | html %]" class="black">ひとこと日記</a></h5>
<ul class="brick-contents">
[%- FOR entry IN feed.entries; LAST IF loop.index >= 5 %]
    <li><a href="[% entry.link | html %]">[% entry.title | trim | html %]</a></li>
[%- END %]
</ul>