perl -le 'print --$| for 1..5'