#!/usr/bin/perl -w

use strict;
use SOAP::Lite;
use CGI qw(redirect);

my $key   = 'XXXXXXXXXXXXXXXXXXXXXXXXXX';
my $query = 'perl golf';
my $max   = 1;

my @params = ($key, $query, 0, $max, 0,'',0,'', 'latin1', 'latin1');

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

print redirect( $result->{resultElements}[0]{URL} );