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

use strict;
use warnings;
use Frontier::Daemon;

my $d = Frontier::Daemon->new(
			      methods => {
					  sum => \&sum,
					 },
			      LocalAddr => '10.0.1.2',
			      LocalPort => 1080,
			     );

sub sum {
  my ($arg1, $arg2) = @_;
	
  return $arg1 + $arg2;
}

##</code><code>##

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

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

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

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

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

##</code><code>##

$perl Client.pl
2 + 5 = 7

##</code><code>##

$g = "FSF SUCKS"; $g =~ s/F/C/g; print $g;