#!/usr/bin/perl # Testing sum() and diff() use strict; use warnings; use Frontier::Client; my $url = "http://localhost:1080/RPC2"; my @args = (5,3); my $client = Frontier::Client->new( url => $url, debug => 0, ); print "$args[0] + $args[1] = ", $client->call('sum', @args), "\n\n"; print "$args[0] - $args[1] = ", $client->call('diff', @args), "\n";