c:\test> \perl32\bin\perl -Mthreads -e"print $]; async{ sleep 1000 }->detach; sleep 5"
5.008009

c:\test>