#!/usr/bin/perl

use SOAP::Lite;

my $QuoteServ =
SOAP::Lite->service("http://www.swanandmokashi.com/HomePage/WebServices/QuoteOfTheDay.asmx?WSDL");
my $quote     = $QuoteServ->GetQuote();

print "Quote of the Day:\n";
print $quote->{QuoteOfTheDay}, "\n";
print "Autor: ", $quote->{Author}, "\n";