perl -Mthreads -wE"{sleep 1 while threads->list>20;async(sub{1})->detach;redo}"