# sample_code.pl

use strict;
use warnings;

use LWP::UserAgent;
use LWP::Debug;
use SOAP::Lite on_action => sub { "$_[0]$_[1]"; };
LWP::Debug::level('+');
SOAP::Lite->import(+trace => 'all');


our $domain = 'MYDOMAIN';
our $username = 'MYDOMAIN\\Username';
our $password = 'password';
our $webserver = "my.server.com";
our @ua_args = (keep_alive => 1);
our @credentials = ($domain, "", $username, $password);
our $soap = SOAP::Lite->proxy('https://' . $webserver . 
 '/gsoap/gsoap_ssl.dll?ttwebservices', @ua_args, credentials => \@credentials);

$soap->uri("urn:ttwebservices");

# call the function for GetVersion
our $som = $soap->GetVersion();
print "\n  " . $som->valueof('//GetVersionResponse/return') . "\n";