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://host.company.com:8443/app/services/service?wsdl');

print $lite->getKey()->result;