use SOAP::Lite;
print "Google price is: ", SOAP::Lite
-> service ('http://www.xmethods.net/sd/StockQuoteService.wsdl')
-> getQuote('GOOG');