sub soapGet(){
        my $service = SOAP::Lite->service('http://server/Info.asmx?WSDL');
        $service->want_som(1);
        $service->GetHospitalInfo();
        my $som = $service->call();

        if ($som->fault) {
          print "SOAP FAULT:\n";
          print Dumper $som;
          exit;
        }

##</code><code>##

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.