#!/opt/bin/perl

use SOAP::Data::Builder;
use SOAP::Lite +trace;

my $builder = SOAP::Data::Builder->new;
$builder->add_elem( 'name' => 'parameters' );
$builder->add_elem(
        'name'      =>  'CustID',
        'parent'    =>  $builder->get_elem('parameters'),
        'value'     =>  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'
);
$builder->add_elem(
        'name'      =>  'Data',
        'parent'    =>  $builder->get_elem('parameters'),
        'value'     =>  'Testing'
);

my $result = SOAP::Lite
        ->service('http://www.thedialogcenter.com/EncryptionService.wsdl')
        ->Encrypt( $builder->to_soap_data );
print $result, "\n";


##</code><code>##

Accept: text/xml
Accept: multipart/*
Content-Length: 558
Content-Type: text/xml; charset=utf-8
SOAPAction: "http://www.arkbluecross.com/WebServices/EncryptionService/Encrypt"

<?xml version="1.0" encoding="UTF-8"?><SOAP-ENV:Envelope xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/1999/XMLSchema-instance" xmlns:xsd="http://www.w3.org/1999/XMLSchema"><SOAP-ENV:Body><Encrypt xmlns=""><parameters><CustID xsi:type="xsd:string">xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx</CustID><Data xsi:type="xsd:string">Testing</Data></parameters></Encrypt></SOAP-ENV:Body></SOAP-ENV:Envelope>