Select Code to Download

package Thread::Queue;
use threads::shared;
...
    return scalar(@$q);
}
1;

#! perl -slw
use strict;
...

printf "Took %.6f seconds\n", time() - $start;
print join ' ', times;

#! perl -slw
use strict;
...

printf "Took %.6f seconds\n", time() - $start;
print join ' ', times;

c:\test>junk51 -T=10 -N=100 -I=1e4
Took 2.544000 seconds
...
c:\test>junk52 -T=10 -N=1000 -I=1e3
Took 21.426000 seconds
15.303 29.156 0 0