求救！ perl 刷新输出的问题（tk 界面不能响应）

用tk 做了个gui界面 ，可每当有较长的程序运行的时候，界面就卡死（显示未响应），
但程序还是在正常运行，直到这个程序跑完 界面 才恢复。 而我需要的是在程序运行时标准输出
在界面显示区实时显示。
   这是什么原因呢？ 输出没有刷新吗？ 有什么方法可以解决吗？十分感谢

$| = 1; # flush the printsout