sub soapGet(){
	my $service = SOAP::Lite
	  -> service('http://ip/Info.asmx?WSDL');
	
	$service -> GetHospitalInfo();
	my $som = $service -> call;
	
	if ($som->fault) {
	  print "SOAP FAULT:\n";
	  print Dumper $som;
	  exit;
	}