#! perl -w

use SOAP::Lite +trace => qw(debug);

my $soap =  SOAP::Lite
#->uri("urn:test")
#->proxy("http://127.0.0.1/cgi-bin/wambam/services/test_handler.pl")
->service("http://127.0.0.1/htdocs/test.wsdl")
->test_method();

use Data::Dumper;
print Dumper($soap);

@row = $soap->valueof('//row');
foreach my $thing (@row) {
	while (my ($key,$value) = each(%$thing)) {
		if ($value){
			print "$key \t=> $value\n";
		}
	}
}