use SOAP::Lite;
my $google_search = SOAP::Lite->service("file:$google_wdsl");
my $results = $google_search ->
                doGoogleSearch(
                        $google_key, $query, $current_page*10, 10, "false", "",  "false", "","","");

foreach my $result (@{$results->{resultElements}}) {
#do as you will with the results.
        }