use Data::Dump 'pp';
my $feed = XML::Feed->parse(\*DATA)
    or die XML::Feed->errstr;

for my $entry ($feed->entries) {
  pp $entry;
}