#!/usr/bin/perl 
# Testing sum()

use strict;
use warnings;
use Frontier::Client;

my $url  = "http://localhost:8181/RPC2";
my @args = (2,5);

my $client = Frontier::Client->new( url   => $url, debug => 1 );

print "$args[0] + $args[1] = ", $client->call('sum', @args), "\n";

##</code><code>##

$ ./fcclient.pl 
---- request ----
<?xml version="1.0"?>
<methodCall>
<methodName>sum</methodName>
<params>
<param><value><i4>2</i4></value></param>
<param><value><i4>5</i4></value></param>
</params>
</methodCall>
---- response ----
<?xml version="1.0"?>
<methodResponse>
<params>
<param><value><string>7</string></value></param>
</params>
</methodResponse>
2 + 5 = 7

##</code><code>##

plankton@ubuntu:/usr/lib/cgi-bin$ cat fcresponder.cgi 
#!/usr/bin/perl -w
use strict;
use Frontier::Responder; 
use CGI;

my $cgi	= new CGI;
my $xml	= $cgi->param('POSTDATA');

my $res = Frontier::Responder->new( methods => {
                                                 sum => sub{ $_[0] + $_[1] },
                                                 add => sub{ $_[0] + $_[1] },
                                                 cat => sub{ $_[0] . $_[1] },
                                                },
                                    );
print $res->answer;

##</code><code>##

plankton@ubuntu:/usr/lib/cgi-bin$ cat test_fcresonder.cgi 
#!/usr/bin/perl -w
use strict;

use Frontier::Client;
my $server = Frontier::Client->new(url => "http://localhost/cgi-bin/fcresponder.cgi", debug => 1);
my $method = 'sum';
my @args = (1,1);
my $result = $server->call($method, @args);

print "$result\n";

##</code><code>##

plankton@ubuntu:/usr/lib/cgi-bin$ ./test_fcresonder.cgi 
---- request ----
<?xml version="1.0"?>
<methodCall>
<methodName>sum</methodName>
<params>
<param><value><i4>1</i4></value></param>
<param><value><i4>1</i4></value></param>
</params>
</methodCall>
---- response ----

no element found at line 1, column 0, byte -1 at /usr/lib/perl5/XML/Parser.pm line 187