select(LOGFILE); $| = 1;
select(STDOUT);

##</code><code>##

$ perl -le 'print $|; $| = 999; print $|; $| = ""; print $|'
0
1
0