A perl bot designed to be used with jabber/XMPP