use XML::RSS;

my $rss = XML::RSS->new;
$rss->parsefile($RSS_FILENAME);

my @items = @{$rss->{items}};
foreach my $item (@items) {
  print "title: $item->{'title'}\n";
  print "link: $item->{'link'}\n\n";
 }