#!/usr/bin/perl -w

use strict;
use SOAP::Lite;
use SOAP::Data;
use Digest::MD5 qw(md5_hex);

my $logonData = SOAP::Data->name('TMWLogonReq' => {'version'       => '100',
                                                   'username'      => 'user',
                                                   'password'      => md5_hex('passwd')});

my $method = SOAP::Data->name('logon')
                       ->attr({xmlns => 'http://authorization.xxxx.de/'});

my $result =  SOAP::Lite
               -> uri('http://authorization.xxxx.de/') 
               -> proxy('http://user:passwd@xxxx.de/services/TradeLinkBMAuthorization')                                   
               -> call($method => $logonData);

if($result->fault) {
  print "Fault\n";
  print join("\n", $result->faultcode, $result->faultstring);
  print "\n";
} else {
  print "TRUE\n";
  print $result->result();
  print "\n";
}