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