#!/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";
    }

##</code><code>##

Class\C3.pm:
	error: Can't locate Class\C3.pm
	refby: C:\Perl\site\lib\Mouse\Util.pm line 169

Created 'google.exe' [Test it]
Executable size: 2.79 MB

[DONE]

{.\google.exe}
Can't locate JSON/PP.pm in @INC (@INC contains:) at (eval 52) line 3.
 at perlapp line 843
BEGIN failed--compilation aborted at /<F:\google.exe>Google/Search/Response.pm line 7.
BEGIN failed--compilation aborted at /<F:\google.exe>Google/Search.pm line 15.
BEGIN failed--compilation aborted at google.pl line 4.

[DONE]