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