gistfile1.pl

sub maybe_add_worker {
    if ( @threads < $daemon->options->{maxthreads} ) {
        print "Creating new thread\n";
        push @threads, threads->new(\&do_work);
    }
}

sub remove_worker {
    if ( @threads > $daemon->options->{minthreads} ) {
        print "Removing thread\n";
        unshift(@threads)->detach;
    }
}

maybe_add_worker for 1..$daemon->options->{minthreads};

for (;;) {
    if ( $apache_load > 100 ) {
        remove_worker;
    } elsif ( $queue_size > 10000 ) {
        maybe_add_worker;
    }
    sleep 5;
}