threads->yield();  
my @list = threads->list(); 
printf ("Thread %d running %d\n", $_->tid, $_->is_running)  for @list; 
print "$bar\nContinuing\n$bar\n"; 
while ( @list = threads->list() ) { 
    foreach my $t (@list) { 
        if ( ! $t->is_running() ) { 
            printf "Thread %d is no longer running\n", $t->tid; 
            $t->detach; 
            if ( $t->is_detached ) { print "\tdetached\n" } 
            else { warn "Error: could not detach\n" } 
            my (@remaining) = threads->list(threads::running); 
            print "\t",scalar(@remaining)," threads remain\n"; 
        } 
    } 
    # do whatever else 
    sleep(1); 
} 
 
Output: 
 
======================================== 
Submit processes 
======================================== 
Thread 1 running 1 
Thread 2 running 1 
Thread 3 running 1 
Thread 4 running 1 
Thread 5 running 1 
======================================== 
Continuing 
======================================== 
Thread 5 is no longer running 
	detached 
	4 threads remain 
Thread 3 is no longer running 
	detached 
	3 threads remain 
Thread 4 is no longer running 
	detached 
	2 threads remain 
Thread 1 is no longer running 
	detached 
	1 threads remain 
Thread 2 is no longer running 
	detached 
	0 threads remain 
========================================

threads->yield(); # tells OS to let threads have cpu time 
while ( my @list = threads->list ) {     
    foreach my $t (threads->list(threads::joinable) ) { 
           my @result = $t->join; 
           # do whatever to the results from the thread 
            my (@remaining) = threads->list(threads::running); 
            print "\t",scalar(@remaining)," threads remain\n"; 
    } 
    # do other stuff 
   sleep(1); 
}