#!/usr/bin/perl

use strict;
use warnings;


use Data::Dumper;
use SOAP::Lite +trace => qw(debug);
my $soap = SOAP::Lite-> new(
	proxy => [
		'http://172.20.14.52:14283/cdxservices/ws',
		credentials => [
			'172.20.14.52:14283',
			'default',
			'cdxservicesusr',
			'cdxservicesusr_qa'
		]
	],
	service => 'file:cdxservices.wsdl',
	readable => 1,
);

my $result = $soap->sendxml( "CLAWS", "<?xml version=\"1.0\"?><transaction><apiname size=\"40\">LockAcct</apiname><comcorp>7801</comcorp><house>158301</house><opr size=\"5\">KPE</opr></transaction>" );
    
print "$result\n";