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;