#!/usr/bin/perl



use SOAP::Lite;

use Data::Dumper;

#use strict;

use warnings;
#use Geo::Coder::Us;




my ($where) = ""\n";



my $result = SOAP::Lite
  
-> uri( 'http://rpc.geocoder.us/Geo/Coder/US' )

-> proxy ('http://rpc.geocoder.us/service/soap' )

-> geocode_address( $where )
  -> result;



print Dumper $result;