#!/usr/local/bin/perl
print "cooking with soap\n";
use SOAP::Lite +trace;
#use SOAP::Lite;
my $soap = SOAP::Lite
->uri("ping=http://xmlschema.tmi.niceCorp.com/xsd/Enterprise/BaseTypes/types/ping_v1/")
->proxy("http://schemas.xmlsoap.org/soap/envelope/")
->result;
print "Calling Ping...\\n";
print $soap->Ping()->result;
print "done.\\n";