#!perl -w

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

use SOAP::Lite;

# 4s4c (aka Simon's SOAP Server Services For COM) http://www.4s4c.com/

print SOAP::Lite 
  -> uri('http://www.pocketsoap.com/whois')
  -> proxy('http://soap.4s4c.com/whois/soap.asp')
  -> whois(SOAP::Data->name('name' => 'yahoo'))
  -> result;