#!/usr/bin/perl

use SOAP::Lite;
use SOAP::WSDL;
use strict;
use warnings;

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

print "MSFT ", $service->getQuote('MSFT'), "\n";