#!/usr/bin/perl 

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

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

sub sum {
   my @args = (9, 9);
   print "The numbers to be added are: @args\n";
   return $args[0] + $args[1], "\n";
}