foreach my $thr (threads->list) {
    # Don't join the main thread or ourselves
     if ($thr->tid && !threads::equal($thr, threads->self)) {
         $thr->join;
            }
        }