use SOAP::Lite;
print "\n";
print " CGI perl web services client\n";
print "
";
my $service= SOAP::Lite
-> service(
'http://localhost:8080/MyCalculatorServer/CalculatorWSService?wsdl');
my $result = $service->getUnitCageSlot(1234);
print "result is: ", $result;
print "\n";
#$service->getUnitCageSlot(1234);
print "\n";