CGI perl web services client


use SOAP::WSDL;

print "<HTML>\n";
print "	<TITLE>CGI perl web services client</TITLE>\n";
print "<br>";
my $soap =
	SOAP::WSDL->new(
        wsdl =>
        'http://localhost:8080/MyCalculatorServer/CalculatorWSService?wsdl' );

$soap->wsdlinit() || die("Can't init");
$som = $soap->call(
	"getUnitCageSlot",
        "iFIndex" => 1234);

print "result is: ", $som;
print "</br>\n";


print "</HTML>\n";