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


##</code><code>##

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse split//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^$$C[$%++]}