#!/usr/bin/perl

use SOAP::Lite;

print join "\n", googly(q|insert key here|,"super friends",2);

sub googly{
@_ == 3 or die "Usage: googly <key> <query> <number of results>\n";
my($key, $q, $maxResults) = @_;

# key, q, start, maxResults, filter, restrict, safeSearch, 
# lr, ie, oe
my @params = ($key, $q, 0, $maxResults, 0, '', 0, '', 
					'latin1', 'latin1');

my $result =
    SOAP::Lite
    -> service("file:./GoogleSearch.wsdl")
    -> doGoogleSearch(@params);

@matches = map( { qq{<a href="$_->{URL}">} . 
			($_->{title} || $_->{URL}) . qq{</a><br />} 
			} @{$result->{resultElements}} );
}

##</code><code>##

#!/usr/bin/perl

use SOAP::Lite;

@ARGV == 3 or die "Usage: googly <key> <query> 
<number of results>\n"

my($key, $q, $maxResults) = @ARGV;

# key, q, start, maxResults, filter, restrict, safeSearch, 
# lr, ie, oe
my @params = ($key, $q, 0, $maxResults, 0, '', 0, '', 
'latin1', 'latin1');

my $result =
    SOAP::Lite
    -> service("file:GoogleSearch.wsdl")
    -> doGoogleSearch(@params);

print join "\n",
        map( { qq{<a href="$_->{URL}">} . ($_->{title} || 
$_->{URL}) . qq{</a>
<br />} } @{$result->{resultElements}} );