use strict; use SOAP::Lite; my $service = SOAP::Lite -> service( 'file:c:\pbx.wsdl' ); my ($codice, $gkid, $location, $firmware, $serial) = $service->Version(); print "$codice, $gkid, $location, $firmware, $serial\n"; my ($sess, $key) = $service->Initialize( "xcept-lenz", ""); print "Session: $sess - Key: $key\n\n";