Google search results

use LWP::UserAgent;
use URI::Escape;

die "usage: $0 ...\n" if $#ARGV == -1;
my $q = uri_escape "@ARGV";
my $n = 100;
my $http = LWP::UserAgent -> new(agent => '');

sub retr {
    my $s = shift || 0;
    my $re = $http -> get("http://www.google.com/search?q=$q&num=$n&start=$s");
    die $re -> status_line . "\n" unless $re -> is_success;
    $re -> content =~ /<a href="([^>]+?)" class=l>/g;
}

my ($s, $prev) = (0, '');
for (my @links = retr; $prev ne "@links"; @links = retr $s += $n) {
    for (@links) { print "$_\n" }
    $prev = "@links";
}