Thank you for the link to the Perl Client Tutorial, that helped me a lot. I did not want anyone to do 'homeowrk' for me and if I was vague it is because I am very new and struggling. Thanks for the help.

Why do do want to perform that particular feat in that particular (but poorly defined) way? It almost sounds like something that might be set for homework. Show us the code you are having trouble with and tell us, or better still show us, where you are having trouble.

Hello,

GrandFather is right, you should show us what you've done so far. Also, Please choose a descriptive subject for your node.

Regarding the code, its really pretty easy. Observe:

On machine A:

$ 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
[download]

On Machine X:

$ 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!'

>
[download]

regards,

trwww