1	#!/usr/bin/perl
     2	
     3	use strict;
     4	use warnings;
     5	use SOAP::Lite;
     6	use Data::Dumper;
     7	
     8	SOAP::Data->import('name');
     9	
    10	my $response = SOAP::Lite
    11	    -> uri( 'urn:GoogleSearch' )
    12	    -> proxy( 'http://api.google.com/search/beta2' )
    13	    -> doGoogleSearch( 
    14	    
    15	    name( 'key' => 'yourdeveloperkeyhere' )->type( 'string' ),
    16	    name('q','chicago.pm')->type('string'),
    17	    name('start',0)->type('int'),
    18	    name('maxResults',2)->type('int'),
    19	    name('filter',1)->type('boolean'),
    20	    name('restrict','')->type('string'),
    21	    name('safeSearch',0)->type('boolean'),
    22	    name('lr','')->type('string'),
    23	    name('ie','')->type('string'),
    24	    name('oe','')->type('string')
    25	
    26	    );
    27	
    28	my $result = $response->result();
    29	print Dumper( $result );