Sorry your correct, I have tried different formats of pretty much the same, The one I have got that gives me some sort of result is

use SOAP::Lite;
 
my $WSDL = 'https://gsxws2.apple.com/wsdl/emeaAsp/gsx-emeaAsp.wsdl';

my $soap = SOAP::Lite
    ->service($WSDL)
    ->on_fault(sub { 
        my $soap = shift;
        my $res = shift;
        if(ref($res) eq '') {
            die($res);
        } else {
            die($res->faultstring);
        }
        return new SOAP::SOM;
           }
    );
my $result = $soap->Authenticate('Daten','xxx','ServiceNo5');
print $result;
[download]

This tell me about the error with the Envelops, And I have no idea how to change the envelope . One thing I did try, Is downloading the WSDL, And then hosted it locally. Then I changed the soap reference in the WSDL but then that failed to connect to the service at all