while( (scalar threads->list) > 0   ){
     print scalar threads->list,"\n"; 
     sleep 1;
     foreach my $thread (threads->list) {
        if( $thread->is_joinable ){ $thread->join;}
       }
  }

##</code><code>##

use threads ( 'exit' => 'threads_only');