#!/usr/bin/perl
use strict;
use warnings;
use Frontier::Client;

my $number;

{
  print "Enter a number\n";
  $number = <STDIN>;
  chomp($number);
  redo unless $number =~ /^\d+$/;
}

my $server_url = 'http://localhost/square/index.cgi/RPC2';
my $server = Frontier::Client->new(url => $server_url);

my $result = $server->call('sample.square', $number);
my $square = $result->{'square'};
my $difference = $result->{'difference'};

print "The square of $number is $square.\n";