XMPP Client in Perl