perl -Mthreads -wE"sub x{ sleep 100 }; my @x=1..1e7; sleep 10; async(\&x)->detach; sleep 100"