#!perl -w

# -- SOAP::Lite -- guide.soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

use SOAP::Lite; 

my $result = SOAP::Lite
      -> uri('urn:xmethodsServicesManager')
      -> proxy('http://www.xmethods.net/soap/servlet/rpcrouter')
      -> getAllSOAPServices();

if ($result->fault) {
  print $result->faultcode, " ", $result->faultstring, "\n";
} else {
  # reference to array of structs is returned
  my @listings = @{$result->result};

  # @listings is the array of structs
  foreach my $listing (@listings) {
    print "-----------------------------------------\n";
    # print description for every listing
    foreach my $key (keys %{$listing}) {
      print $key, ": ", $listing->{$key} || '', "\n";
    }        
  }

}