#!/usr/bin/perl

# sum() server
 	
use strict;
use warnings;
use Frontier::Daemon;
	
my $d = Frontier::Daemon->new(
      LocalPort => 8999,
      methods => {
	  sum => \&sum,
      },
      LocalAddr => 'localhost'
) or die "Cannot start HTTP server $!\n"  ;
	
sub sum {
  my ($arg1, $arg2) = @_;
  print "summing $arg1 en $arg2\n";
  return $arg1 + $arg2;
}