my @running = threads->list(threads::running);
    my @joinable = threads->list(threads::joinable);

##</code><code>##

foreach my $thr ( threads -> list ) { 
   print $thr. " is running\n" if $thr -> is_running(); 
   print $thr. " is joinable\n" if $thr -> is_joinable(); 
}