Select Code to Download

#! perl -slw
use strict;
...
print "Main done";

$_->join for @pool

c:\test>TQpool -WORKERS=4 -ITEMS=10
Thread 1 started
...
Thread 2 done
Main done
Thread 4 done