Select Code to Download

my $pool = Custom::Utility::ThreadPool->new(maxThreads => 5);
$pool->enqueue(&func, $arg1, $arg2...);
$pool->start;
$pool->blockTillCompletion;

package Custom::Utility::ThreadPool;

...
}

1;