$soap_response = $soap_client->getAllNetworks();
  if ($soap_response->fault) {
    print "\nSOAP fault: ".$soap_response->faultstring."\n";
  }
  else {
    $array_of_riis = $soap_response->result;
    # actually a reference to an array of references!
 
    # if this returns duped results with SOAP::Lite v0.65+ it is  
    # due to a SOAP::Lite bug when talking to Apache Axis
    for ($i=0 ; $i < (scalar(@{$array_of_riis})) ; $i++) {
      $this_ref = $array_of_riis->[$i];
      print "\nObject Type: ".ref($this_ref)."\n";
      while (($key, $val) = each(%{$this_ref})) {
        print ' '.$key.' = '.$val."\n";
      }
    }
  }