use SOAP::Lite;

print SOAP::Lite
   -> service('http://www.webservicex.com/globalweather.asmx?WSDL')
   -> GetCitiesByCountry('Singapore');

##</code><code>##

$ perl -w weathertest.pl
$