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;


##</code><code>##


           // SERVICE REFERENCE-SPECIFIC CODE  

 MyService.FUNCTIONPortClient soapClient = new MyService.FUNCTIONPortClient ();

           result = soapClient.test_query("test from c# ! ");
                       
            try
            {
              
           this.output.Text = "Querying the Web Service...   answer: " + result;
               
            }
            catch (Exception error)
            {
           this.output.Text = error.Message;
            }