C:\test>perl async\Q.pm -N=10 -T=2 -SIZE=10
1
2
3
4
5
6
7
8
9
10
10 items by 2 threads via three Qs size 10 in 0.030158 seconds