#!/usr/bin/perl
use strict;
use warnings;
    use Google::Search;
    my $search = Google::Search->Web( query    => { q  => "just a word",
                                                lr => 'lang_en',
                                                hl => 'en',
                                              },
             );
    while ( my $result = $search->next ) {
        print $result->rank, " ", $result->uri, "\n";
    }