用tcltk的文件监控脚本