1#!perl -w
2#!d:\perl\bin\perl.exe
3
4# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
5
6use Win32::OLE;
7
8$soap = Win32::OLE->CreateObject('SOAP.Lite')->new
9  or die "SOAP::Lite for COM is not installed";
10
11$soap->proxy('http://localhost/')
12     ->uri('http://www.soaplite.com/My/Examples');
13
14print $soap->getStateName(shift || 25)->result;
15
16