#!perl -w

# -- SOAP::Lite -- guide.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

use SOAP::Lite;

my $service = SOAP::Lite
  -> service('http://www.xmethods.net/sd/StockQuoteService.wsdl');

print 'MSFT + ORCL = ', 
      $service->getQuote('MSFT') + $service->getQuote('ORCL');