#!/usr/bin/perl -w

 use SOAP::Lite;
   my $service = SOAP::Lite
    -> service('http://www.xmethods.net/sd/StockQuoteService.wsdl');
    print 'MSFT + ORCL = ', $service->getQuote('MSFT') + $service->getQuote('ORCL');