请问怎样用tcl脚本检测键盘的输入

hbbdlx

想用TCL写个脚本，能够识别到键盘的输入，然后进行一些操作，请问怎么实现？跪谢～～

sjtusonic

#!/usr/bin/tclsh

puts -nonewline "Enter your name: "
flush stdout
set name [gets stdin]

puts "Hello $name"
from: http://zetcode.com/lang/tcl/io/