#!/usr/bin/perl 

use SOAP::Lite;
use Data::Dumper;
use strict;
use warnings;

# Thanks to Scott Gunn for writing GeoCoder.wsdl!

my $where = shift @ARGV
    or die "Usage: $0 \"111 Main St, Anytown, KS\"\n";

my $result = SOAP::Lite
  -> service('http://geocoder.us/dist/eg/clients/GeoCoder.wsdl')
  -> geocode( $where );

print Dumper $result;