my $uri = "tcp://$server/ENG/AddressManagement/NameServerManagement";
    my $proxy = 'tcp://rheise-linux:82';
   
    my $result;
    eval {
	use SOAP::Lite +autodispatch =>
	  uri => $uri, 
	    proxy => 'tcp://rheise-linux:82', 
	      on_fault => sub { my( $soap, $res ) = @_;
				confess (ref $res ? $res->faultstring : ($soap->transport->status, "\n"));
			    };