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