use strict;
use warnings;
#use SampleService qw=>(:all);
#use SOAP::Lite +trace => qw(all);
use SOAP::Lite;
#$ENV{HTTPS_DEBUG} = '1';
#$ENV{HTTPS_CA_FILE} = 'C:/src/perl/a.cer';
#$ENV{HTTPS_CA_DIR} = 'C:/src/perl';
my $lite = new SOAP::Lite(
#uri => 'http://org.jboss.ws/samples/docstyle/bare', 
proxy => 'https://me:password@aseriesws.somecompany.com:8443/app/services/module?wsdl');
while (1) {
	my $start = time();
	print"Result = " .  $lite->ping()->result . ",";
	my $end = time();
	my $diff = $end - $start;
	print " started at " . localtime() . ", took " . $diff . " seconds\n";
	sleep(10);
}