A Jabber server, written in Modern Perl