Well I would guess that the problem is actually on the server end as that code should work (assuming you have the username and password correct), you could try setting the debugging on as described in the documentation to see if that sheds any extra light on the matter.

Of course there are already Jabber clients in Perl such as Jarl.

/J\