关于tcl里的stdin，它的eof是什么键？

wusi0423

有一段代码如下
set numLines 0 ; set numChars 0；
while {[gets stdin line] >= 0} {
incr numLines   
incr numChars [string length $line]}

运行的环境为win7下activestate active tcl里的tclsh8.5,如何通过键盘输入eof跳出while循环？如果用ctrl+Z的话，会把tclsh8.5也给关掉。