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

my %domainArray = (
			'AuthUserName' => 'xxxxxxxxxxxxxx@xxxxxxxx.com',
			'AuthPassword' => 'xxxxxxxxxx',
			'NewUsername' => 'xxxxxxxx',
			'NewPassword' => 'xxxxxxxxxxxx',
			'DomainName' => 'xxxxxxxxxxx.com',
			'FirstName' => 'john',
			'LastName' => 'doe',
			'IsDomainAdmin' => 0
			);
				
my $WSDL 	= 'http://SMARTERMAIL.com/services/svcUserAdmin.asmx?WSDL';
my $soap 	= new SOAP::Lite->service($WSDL);
my %output 	= $soap->AddUser(%domainArray);

print "Output: ". %output;