sub check_result {
	my ($self, $code, $IP, $PORT) = @_;

	my $soap = SOAP::Lite->new( proxy => "http://$IP:$PORT/REMOTE_SOAP");

	$soap->autotype(0);
	$soap->default_ns('http://REMOTENAMESPACE/namespace/default');
	$soap->transport->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' )->value( $code ),
 	);
 
	return $som->paramsout;
}