#!/usr/bin/perl -w
use strict;
use warnings;
use SOAP::Lite;

  my $service = SOAP::Lite
    -> service('http://wsf.cdyne.com/WeatherWS/Weather.asmx?WSDL');

my $result = $service->GetWeatherInformation();

print "DONE\n";