perl -Mthreads -e"$|++;async{print threads->tid while 1}->detach for 1 .. 4; <>"