#!/usr/bin/perl --

use strict;
use warnings;

use XML::Twig;
use LWP::Simple qw( $ua );
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');

my $url  = 'http://search.cpan.org/uploads.rdf';
my $twig = XML::Twig->nparse_pp(
    TwigRoots => {
        'item/title' => sub{},
    },
    $url
);
$twig->print;

__END__