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

use LWP::Simple;
use XML::RSS;

my $rss = XML::RSS->new();
my $data = get( "http://search.cpan.org/rss/search.rss" );
$rss->parse( $data );

foreach my $item ( @{ $rss->{items} } )
{
	print qq|\\item \\href{$$item{link}}{$$item{title}}\n|;
}
