#!/usr/bin/perl

use SOAP::WSDL;
use HTTP::Cookies;
import SOAP::Lite +trace => 'all';

my $soap = SOAP::WSDL->new(wsdl => 'http://domain.tld/api.wsdl');

$soap->proxy('https://domain.level.tld/API/api.dll?Handler=Default',
			  cookie_jar => HTTP::Cookies->new());
$soap->wsdlinit(caching=>1);

$soap->call('SessionLoginTechnician',
			'TechName' => 'username',
			'Password' => 'password',
			);

			
$soap->call('AccountSetStatus',
					  AccountNumber => 123456789,
					  Status => 'ACCOUNT_ACTIVE',
					  Justification => 'api testing',
					  StatusCode => 0
			);