use strict;
use warnings;

system("color 1e");

use SOAP::Lite + trace => 'all'; 
#use SOAP::Lite;
   
#use SOAP::Schema::WSDL;

my $IP = '192.168.1.53';

#------------------------------------------------------------------------------------------
# parametr

my $input = 'invio di test...';

#---------------------------------------------------------------------------
# service...

my $client = SOAP::Lite ->service("http://$IP/eCHS/html/SERVICE/e-service.wsdl");
                        

#---------------------------------------------------------------------------
# QUERY per eCHS....

my $result = $client->test_query( $input );                                      #  query 1

#---------------------------------------------------------------------------
# PROMPT

print "---------------------------------------";
print "\n    [ Web Service Client - eCHS]\n";
print "---------------------------------------\n";
print "\n\n> result: ".$result; # float
print "\n\n\n\n";

system("pause");

#--------------------------------------------------------------------------

exit;