my @list = threads->list;  
      print scalar(@list),"\n";                 
   foreach my $thr ( threads->list ) { 
    $thr->join;  
  }