# Loop through all the threads
    foreach my $thr (threads->list()) {
        $thr->join();
    }