#!/opt/perl/bin/perl -Tl

use warnings;
use strict;

use RPC::XML::Client;

my $client = RPC::XML::Client->new('http://localhost:8000/');
my $result = $client->send_request('system.listMethods');
die $result unless defined($result);
die $result;
die $result->code . ': ' . $result->string if $result->is_fault;
print join(' ',  @{$result->value}), "\n";