my ($uri, $proxy, $result); BEGIN { $uri = "tcp://$server/ENG/AddressManagement/NameServerManagement"; $proxy = 'tcp://rheise-linux:82'; } use SOAP::Lite ...;