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