#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
use SOAP::Lite 'autodispatch';

my $namespace = 'http://xmlns.telnic.org/ws/nsp/client/domain/types-1.0';
my $soap = new SOAP::Lite
                uri => $namespace,
                proxy => [
                    'https://telhosting.example.com/client',
                     credentials => [
                        'telhosting.example.com:443',
                        'api',
                        'myusrname' => 'mypass'
                    ]
                ]

                ;

$soap->serializer(SOAP::Serializer->new());
$soap->uri($namespace);
$soap->default_ns($namespace);
$soap->autotype(0);
$soap->readable(1);
$soap->soapversion('1.2');

$SOAP::Constants::DEFAULT_HTTP_CONTENT_TYPE= "application/soap+xml";

my $xml = qq{
<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" 
xmlns:typ="{$namespace}">
<soap:Header/>
<soap:Body>
<typ:updateDomainRequest domainName="tobuy.tel">
<typ:displayString>Hello this is SOAP::Lite test</typ:displayString>
</typ:updateDomainRequest>
</soap:Body>
</soap:Envelope>
};

#my $soap_data = new SOAP::Data->type('xml' => $xml);
my $soap_data = new SOAP::Data
                ->name('listRecordsRequest')
                ->attr({
                        'xmlns' => $soap->default_ns,
                    });
my $response = $soap->call($soap_data);
print Dumper $response;