perl -le '$|=1; { print ++$i; sleep 1; redo; }'