string string ##

##

	DataSet ds = new DataSet();			
	theGeoData.AuthenticationHeader auth = new theGeoData.AuthenticationHeader();
	theGeoData.GetData theAd = new
	theGeoData.GetData();
	auth.username = "user";
	auth.password = "pass";
	theAdds.AuthenticationHeaderValue = auth;
	ds = theAdds.GetIt();

##

##

sub SOAP::Transport::HTTP::Client::get_basic_credentials { 
	return 'username' => 'user';
	return 'password' => 'pass';    
}

##

##

	        -> service('http://user:pass@server/GetData.asmx?WSDL');

##

##

	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();