#!/usr/bin/perl

# Scrappy - Your friendly neighborhood web crawler!

use Scrappy;
our $spidy = Scrappy->new;

   $spidy->crawl('http://search.cpan.org/recent', {
        '#cpansearch li a' => sub {
            print shift->text, "\n";
        }
   });