You could try a different approach such as:
my $soap = SOAP::Lite->uri($uri)->proxy($proxyURL);
In your script:
#!/usr/bin/perl -l
use strict;
use warnings;
use SOAP::Lite;
my $uri = 'http://www.example.com';
sub check_result {
my ( $self, $code, $IP, $PORT ) = @_;
my $proxyURL = "http://$IP:$PORT/REMOTE_SOAP";
my $soap = SOAP::Lite->uri($uri)->proxy($proxyURL);
$soap->autotype(0);
$soap->default_ns('http://REMOTENAMESPACE/namespace/default');
$soap->proxy->timeout(15);
$soap->on_fault(
sub {
my ( $soap, $res ) = @_;
eval { die ref $res ? $res->faultstring : $soap->transport
+->status };
return ref $res ? $res : new SOAP::SOM;
}
);
my $som =
$soap->call( "remote_function", SOAP::Data->name('Entry1')->valu
+e($code),
);
return $som->paramsout;
}