An IRCd written in perl