use SOAP::Lite +trace => "debug";
use SOAP::WSDL;
use Data::Dumper;
my $soap = SOAP::Lite->service("http://172.16.15.148:8081/Webservice/WebserviceService?wsdl");
print Dumper($soap->serializer->{_namespaces});
print "\n\nRESULT:\n".Dumper $soap->hello('Chewy')."\n\n";

##</code><code>##

$VAR1 = {
          'http://www.w3.org/2001/XMLSchema' => 'xsd',
          'http://schemas.xmlsoap.org/soap/encoding/' => 'soapenc',
          'http://www.w3.org/2001/XMLSchema-instance' => 'xsi',
          'http://schemas.xmlsoap.org/soap/envelope/' => 'soap'
        };
SOAP::Transport::HTTP::Client::send_receive: POST http://172.16.15.148:8081/Webservice/WebserviceService HTTP/1.1
Accept: text/xml
Accept: multipart/*
Accept: application/soap
Content-Length: 567
Content-Type: text/xml; charset=utf-8
SOAPAction: ""
__cut__
SOAP::Transport::HTTP::Client::send_receive: HTTP/1.1 200 OK
<?xml version="1.0" ?><S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/"><S:Body><ns2:helloResponse xmlns:ns2="http://Webservices/"/></S:Body></S:Envelope>

RESULT:
$VAR1 = '
';