Help for this page

Select Code to Download


  1. or download this
    my $queue = new Thread::Queue;
$queue->enqueue( @ips[ 0 .. $howmany ] );
  2. or download this
        while( my $string = $queue->dequeue_nb ) {
  3. or download this
    #! perl -slw
use strict;
...
## And bury them
$_->join for @workers;