##
#!/usr/bin/perl
use 5.010001;
use strict;
use warnings;
use SOAP::WSDL::Client;
my $address = 'https://foo.com/websvc.cfc';
my $soap = SOAP::WSDL::Client->new(
{
proxy => $address;
}
);
my $IP = '127.0.0.1';
my $ret = $soap->call('getConfigByIP', $IP);
say "Ret: $ret";
####
$soap->call( \%method, $body, $header);
$soap->call( $method, \@parts );
sub mySoapMethod {
my $self = shift;
$soap_wsdl_client->call( mySoapMethod, @_);
}