1#@!#!123s

: / kunden / proc / self / root / usr / share / doc / libsoap-lite-perl / examples / COM /

Filename : states.pl

back

#!/usr/bin/perl -w
#!d:\perl\bin\perl.exe

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

use Win32::OLE;

$soap = Win32::OLE->CreateObject('SOAP.Lite')->new
  or die "SOAP::Lite for COM is not installed";

$soap->proxy('http://localhost/')
     ->uri('http://www.soaplite.com/My/Examples');

print $soap->getStateName(shift || 25)->result;