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