my $rss = XML::RSS->new();
$rss->parse($source);
foreach my $item ( @{ $rss->{items} } ) {
    print Dumper($item);
}