Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
}

close IN;
  2. or download this
    #! perl -slw
use strict;
...
$Q->enqueue( (undef) x $NTHREADS );
$_->join for @threads;