Скрипт очень прикольный... )))
Скачать: publol.tcl