perl -Mthreads 
-E"@t= map async( sub{say threads->tid;sleep10;}),1..1000;$_->join for @t"