#!/usr/bin/perl
use SOAP::Lite +trace => 'debug';
use strict;
use warnings;

my $username = 'xxxxxx';
my $password = 'xxxxxx';

my $service = SOAP::Lite
   -> uri('http://xx-xx.xxxxxx.com/xxxws/xxxws?WSDL')
   -> proxy('http://ws.xxxxxx.com:80/xxxws')
;

my $data = SOAP::Data
	->name("GetToken" => 
	\SOAP::Data->value(
	SOAP::Data->name("username" =>'$username'),
	SOAP::Data->name("password" => '$password')
	)
);

my $result = $service->call(
	SOAP::Data
	->name('getToken')
	=> $data
);

print $result;