document/literal support is EXPERIMENTAL in SOAP::Lite at /Library/Perl/5.8.6/SOAP/Lite.pm line 2818.
Can't call method "name" without a package or object reference at /Library/Perl/5.8.6/SOAP/Lite.pm line 2980.

##</code><code>##

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;
	}