#!/usr/bin/perl -w

use strict;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->agent("ZaurusSuckFeeds/0.1 ");
		           
my $req = HTTP::Request->new(GET => 'http://www.google.com/search?q=zaurus+feed+%22index+of%22&num=100&hl=en&lr=&ie=UTF-8&output=search');

my $res = $ua->request($req);

if ($res->is_success) {
	my $html = $res->content;
	while ( $html =~ m#<p class=g><a href=([^>]+?/)>#mgis) {
		print "$1\n";
	}
} else {
	print "Error contacting google...\n";
}
