$soap = SOAP::Lite->new(
			uri   => ("http://www.webserviceX.NET"),
			proxy => ('http://www.webservicex.com/globalweather.asmx'),
		       );
$soap->on_action(sub{join '/',@_ });
my $city = SOAP::Data->name(CountryName => 'Singapore');
my $som = $soap->GetCitiesByCountry($city);

if (my $match = $som->match('/Envelope/Body/GetCitiesByCountryResponse/')) {
  print "match is OK: $match\n";
  my $result = $som->valueof('//GetCitiesByCountryResponse/GetCitiesByCountryResult');
  print Dumper($result);
} else {
  print "match not OK: $match\n";
}

##</code><code>##

match is OK: 1
$VAR1 = '<NewDataSet>
  <Table>
    <Country>Singapore</Country>
    <City>Singapore / Paya Lebar</City>
  </Table>
  <Table>
    <Country>Singapore</Country>
    <City>Singapore / Changi Airport</City>
  </Table>
</NewDataSet>';