Perl XMPP monkey bot