#perl -e 'print --$| foreach (1..10)'
1010101010