[16:20:43.22] C:\test>perl -mthreads=stack_size,4096 -mthreads::shared -E"my $n:shared=0; async{{lock$n; ++$n;} sleep 1e3}->detach for 1..1e3; sleep 1 while threads::list > 1; say $n" 999 [16:20:44.72] C:\test>