A chat server written in perl