perl -Mthreads -e'async{ async{ 1;}->join }->join while 1'