Select Code to Download

sub test1252 {
    my @jobs = ();
...
     }
     $_->join for @jobs;
}

Perl exited with active threads:
        9 running and unjoined
        0 finished and unjoined
        0 running and detached