#!/usr/bin/perl

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

my $service = SOAP::Lite
   ->service('http://localhost:8080/axis2/service/StockQuoteSer
+vice?wsdl');

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