c:\test>perl -e"$t=time; sleep 5; sleep 5; print time - $t"
10

##</code><code>##

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