use strict;
use warnings;

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

my $lite = new SOAP::Lite(uri => 'http://org.jboss.ws/samples/rpcstyle', 
proxy => 'https://it.abc.com:8443/jbossws-samples-rpcstyle?wsdl');
print $lite->getKey()->result;