.... threads->create(...) ...

while(threads->list(threads::running)) {
sleep(1);
}
for my $thread (threads->list(threads::joinable)) {
$thread->join();
}