>perl -le"for (0,1,0) { $|=$_; print $|, ${'main::|'} }"
00
11
00