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