#!/usr/bin/perl -w

# Przykad wtyczki przeszukujcej w Google 

use strict;
use warnings;
use SOAP::Lite;

# wszystkie dane o Google
my $google_key  = "Twj klucz do API";
my $google_wdsl = "GoogleSearch.wsdl";
my $gsrch       = SOAP::Lite->service("file:$google_wdsl");
my $query       = join "+", @ARGV;

# teraz szukanie...
my $result = $gsrch->doGoogleSearch($google_key, $query,
                          1, 10, "false", "",  "false",
                          "lang_en", "", "");

# i pokazujemy wyniki.
foreach my $hit (@{$result->{'resultElements'}}){
   print "$hit->{URL}\t$hit->{title}\n";
}

