perl -Mthreads -E"async{ my $x; ++$x for 1 .. 100e6 }->detach for 1 ..8; sleep 10"