#!c:/perl/bin
use SOAP::WSDL;
use strict;
use warnings;

my %data = (
            'AuthUserName' 	=> 'xxxxxx@testdomain.com',
            'AuthPassword' 	=> 'xxxxxxx',
            'NewUsername' 	=> 'johndoe',
            'NewPassword' 	=> 'test',
            'DomainName' 	=> 'testdomain.com',
            'FirstName' 	=> 'john',
            'LastName' 		=> 'doe',
            'IsDomainAdmin' => 0
            );
                
 my $soap = SOAP::WSDL->new(
    wsdl => 'http://xxxxxxxxxxxxxx.com/services/svcUserAdmin.asmx?WSDL',
 );

 my $result = $soap->call('AddUser', %data);
 
 print $result;