Perhaps this helps:

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

rdfield