eval {
	    $service = SOAP::Lite
	        -> service('http://server/GetData.asmx?WSDL');
	};  #|| ($_); # $@ will have the error message, perldoc -f eval

	$service -> GetData();
	my $som = $service -> call || &soapGetBad();