Select Code to Download

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

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