perl -Mthreads -E"$_->join foreach map async { say threads->tid,' ', 2**859433-1 } , 1..2"
1 1.#INF
2 1.#INF