Ищи чаты perl + flash, там будет сокет-сервер. Но сразу хочу предупредить, что для разработки нужна любая unix система. Потому, что perl с сокетами в win32 работает не корректно. Особенно это относится к ветвлению процессов через fork. Select в винде работает вроде правильно. На публичном сервере тестировать такие вещи тоже не советую, иначе из-за простой ошибки ветвление процессов может происходить, пока сервер не ребутнут
а без ветвления там не обойтись..