search_cpan.pl

#!/usr/bin/perl                                                                                            
use strict;
use warnings;
use URI::Escape qw( uri_escape );
use HTTP::Lite;

my $query = $ARGV[0] or die "query required\n";
my $url = 'http://search.cpan.org/search?m=all&q=' . uri_escape( $query );
my $http = HTTP::Lite->new;
$http->request( $url );
my @paths = $http->body =~ m!<h2\s+class=sr><a\shref=\"/~[^/]+/([a-zA-Z\-]+)-!mg;
for my $path ( @paths ){
    $path =~ s/-/::/g;
    print "$path\n";
}
__END__