use strict;
use warnings;
use Data::Dumper;
use XML::RSS;
my $rss = XML::RSS->new;
$rss->parsefile("/tmp/rss.xml");
my $items = $rss->{items};
print Dumper $items;