This project looks interesting to follow: http://www.danga.com/djabberd/ It's a Jabber server implementation written in perl, with an eye to performance. In particular, it appears to be designed to allow redundant servers. It's still in development and hasn't had a release yet, but is a nice indication that there is active open source Jabber server development going on.