#!/usr/bin/perl -w
use strict;
use Google::Search;
my $search = Google::Search->Web( key => '***', query => "rock" );
while ( my $result = $search->next ) {
    print $result->rank, " ", $result->uri, "\n";
}