system($^X, -le => '$|=1; { print ++$i; sleep 1; redo; }')