#!perl -w

# -- SOAP::Lite -- guide.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

use SOAP::Lite;

# Frontier http://www.userland.com/

$s = SOAP::Lite 
  -> uri('/examples')
  -> on_action(sub { sprintf '"%s"', shift })
  -> proxy('http://superhonker.userland.com/')
;

print $s->getStateName(SOAP::Data->name(statenum => 25))->result;