c:\test>perl -Mthreads -e"$t=time;async{sleep 5}->detach;sleep 5;print time-$t"
5