In this part of the code:

  my @result = $xmpp->AuthSend(username => $username,
                               password => $password,
                               resource => 'TestClient_'.$VERSION);

  unless ($result[0] eq 'ok')
[download]

@result should be ('ok',''), but in Windows it is ('error','not-authorized')

Okay. The way you originally reported the error it looked like a mis-quoted user permissions error. I know nothing about XMPP, (not even what it was till I looked up the module).

However, I did notice Net::XMPP::Debug with options for having high and low level calls logged. The output from that might give you some clues where to look.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

That module seems to be used internally for the other Net::XMPP modules, but I'll dig deep into it to see if I can use it myself. Thanks!