my $soap = SOAP::Lite->service("http://www.webservicex.net/globalweather.asmx?WSDL");

print Dumper($soap->serializer->{_namespaces});

##</code><code>##

use strict;

use SOAP::Lite +trace => "debug";

my $address = 'http://www.webservicex.net/globalweather.asmx';
my $action = "http://www.webserviceX.NET/GetCitiesByCountry";
my $namespace = 'http://www.webserviceX.NET';
my $call = "GetCitiesByCountry";

my $soap = SOAP::Lite
    ->uri($namespace)
    ->on_action(sub { $action } )
    ->proxy($address);

my $arg = SOAP::Data->name(CountryName => "Singapore");

$soap->call($call => $arg);