#!/usr/bin/perl
#sum, product, square

use strict;
use warnings;
use Data::Dumper::Concise;
use WebService::Advogato;

my $client = new WebService::Advogato();           
my $int_x = '91';
my $int_y = '23';
warn Dumper($client->sumprod($int_x, $int_y));
warn Dumper($client->square($int_x));