#!/usr/bin/perl 

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

my $soap = SOAP::WSDL->new();
my $som = $soap->wsdl(
  "http://www.webservicex.net/GlobalWeather.asmx?WSDL")
  -> call('GetWeather', GetWeather => {
          CountryName => 'United States', 
          CityName => 'San Francisco' }
);
print $som->result(), "\n";