#!/opt/bin/perl

use SOAP::Lite +trace;

my $result = SOAP::Lite
        ->service('http://www.thedialogcenter.com/EncryptionService.wsdl')
        ->Encrypt('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', 'Testing');

print $result, "\n";