perl 脚本中print 问题！

为什么我在程序中print 后面加上sleep 之后 打印的内容要等到sleep结束后才显示呢个？
例如：

if (XXXXX)
{
  print ".......test......";
  sleep 100;

}

程序如上所示，为什么 .......test...... 在等到100秒以后才能显示出来？

好像是缓冲的问题。