perl -Mthreads -E"{ async{ print qq[\r], threads->tid; }->detach; select'','','',0.001; redo}"