All the threads are joined. There are no active threads. No threads are detached. This code after the final join and before line 884 does not print anything:

foreach my $th(threads->list()) {
    print $th->tid()."\n";
}
[download]

I will ask this afternoon about sharing the code. This is urgent enough that I might get approval. Thanks for the help!