$|是perl的内置变量，默认情况下是0，如果设置为非0的话，表示当前的输出不经过缓存立刻输出。相当于c语言的fflush()函数，立即刷新缓冲区。

比如你print或者write一个文件，实际是需要经过缓存的，但是设置该变量非0后就不经过缓冲立刻输出了

不过perl的只要一次设置$|=1，那么程序里所有文本都会立即输出（而不会放到输出缓冲区，待缓冲区满或者遇到换行符再输出）