$ cat server.pl
use warnings;
use strict;

use RPC::XML::Server;

my $server = RPC::XML::Server->new(port => 9000);

$server->add_method({
  name      => 'test.hello',
  signature => [ q|string string| ],
  help      => 'this method greets an argument... cool, huh?',
  code      => sub {
    my($server, $str) = @_;
    return( "Hello, $str!" );
  }
});

print "listening on port 9000\n";
$server->server_loop;
[trwww@waveright rpc]$ perl server.pl
listening on port 9000

##</code><code>##

$ XMLRPCsh.pl http://localhost:9000/
Usage: method[(parameters)]
> system.listMethods('test')
--- XMLRPC RESULT ---
[
  'test.hello'
]

> system.methodHelp('test.hello')
--- XMLRPC RESULT ---
'this method greets an argument... cool, huh?'

> system.methodSignature('test.hello')
--- XMLRPC RESULT ---
[
  [
    'string',
    'string'
  ]
]

> test.hello('perlmonks')
--- XMLRPC RESULT ---
'Hello, perlmonks!'