%newUser = (username => "Max", country => "$country[1]");
$server = SmarTalk->new(\%newUser);
%setting = (porta => "9995");
$server->setServer(\%setting);
$server->serverUp();
############***###############
#Client example
use strict;
use warnings;
use SmarTalk;
my (%newUser,%setting,$client);
my @country = qw - GB IT -;
%newUser = (username => "John", country => $country[1]);
$client = SmarTalk->new(\%newUser);
%setting = (server => 'localhost', porta => 9995);
$client->setClient(\%setting);
$client->clientUp();
COPYRIGHT AND LICENCE
Copyright (C) 2013 by Cladi Di Domenico
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.12.4 or,
at your option, any later version of Perl 5 you may have available.