in reply to $|= 0 at start of script

> perl -lwe 'print $|-- for 0..5' 0 1 0 1 0 1
  p