fetch_feed.pl

#!/usr/bin/perl
use strict;
use warnings;
use WebService::Google::Reader;

my $feed_uri = 'http://search.cpan.org/uploads.rdf';
my $reader = WebService::Google::Reader->new(
    username => '',
    password => '',
);
die $reader->error if (!$reader or $reader->error);

my $feed = $reader->feed($feed_uri, count => 40, order => 'asc');
for my $entry ($feed->entries) {
    warn $entry->as_xml;
}

__END__