perl io的autoflush设置

perl脚本中有下面一段代码, 结果久久不能看到输出. 一开始怀疑是sleep函数有bug, google后恍然大悟:IO的autoflush没打开...佛祖啊, Jesus啊

while(1){
	sleep $SAMPLE_INTERVAL;
	doSomeThing();
}

在脚本的开始加入:

$|=1

搞定...