use SOAP::Lite +trace => all;

$soap = SOAP::Lite
    -> uri('http://www.webservicex.net')
    -> on_action( sub { join '/', 'http://www.webserviceX.NET', $_[1] } )
    -> proxy('http://www.webservicex.net/globalweather.asmx');

my $method = SOAP::Data->name('GetCitiesByCountry')
    ->attr({xmlns => 'http://www.webserviceX.NET/'});

my $param =  SOAP::Data->name("CountryName" =>"India");

 $result= $soap->call($method,$param)->result();


##</code><code>##

<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/1999/XMLSchema" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"><SOAP-ENV:Body><GetCitiesByCountry xmlns="http://www.webserviceX.NET/"><CountryName xsi:type="xsd:string">India</CountryName></GetCitiesByCountry></SOAP-ENV:Body></SOAP-ENV:Envelope>


##</code><code>##


POST /globalweather.asmx HTTP/1.1
Host: www.webservicex.net
Content-Type: text/xml; charset=utf-8
Content-Length: length
SOAPAction: "http://www.webserviceX.NET/GetCitiesByCountry"

<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <GetCitiesByCountry xmlns="http://www.webserviceX.NET">
      <CountryName>string</CountryName>
    </GetCitiesByCountry>
  </soap:Body>
</soap:Envelope>