XMPP and IRC bot written in perl