$ perl -E '$| = 2; say $|; $| = -1; say $|; $| = 0; say $|; $| = undef; say $|'
1
1
0
0