$| is a special Perl variable. $|=1; turns buffering off on the currently selected file handle. $|++; does the same thing (any non-zero value will do). In the above code, I believe that this would only apply to STDOUT.