#!/usr/local/bin/perl -w
use strict;

use constant URL => 'http://www.perlmonks.org/headlines.rdf';

use LWP::Simple;
use XML::RSS;
my $rss = new XML::RSS;
$rss->parse( get URL );

for my $item (@{ $rss->{'items'} }) {
    print "<a href=", $item->{'link'}, ">", $item->{'title'}, "</a><br>\n";
}