$ 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