#!/usr/bin/perl

use strict;
use warnings;
use SOAP::Lite;
use SOAP::WSDL;

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

print $soap, "\n";