#!/usr/bin/perl

use SOAP::Lite ;

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

if($h->faultcode)
{
	print $h->faultcode." ".$h->faultdetail." ".$h->faultstring."\n";
}
else
{
	@resultarray=@{$h->result};

	foreach $service (@resultarray)
	{
		print $service->{name} . "\n";
		print $service->{owner} . "\n";
		print $service->{homepageURL} . "\n";
		print $service->{wsdlURL} . "\n";
		print "------------------------\n";

	}
	
}