use strict;
use warnings;

use SOAP::Lite +trace => qw(all);
use SOAP::Lite;

my $lite = new SOAP::Lite(uri => 'http://org.jboss.ws/samples/docstyle/wrapped', 
proxy => 'http://earth:8080/jbossws-samples-docstyle-wrapped?wsdl');


print $lite->add(1,2)->result;