Select Code to Download

$ cat server.pl
use warnings;
use strict;
...
$server->server_loop;
[trwww@waveright rpc]$ perl server.pl
listening on port 9000

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