Select Code to Download

#! perl -slw
use strict;
...
}

printf "Took %.6f seconds\n", $end - $start;

C:\test>junk2 -N=1000 -W=32 -L=1
 1 : 32000
...
19 : 32000
20 : 32000
Took 2.674634 seconds

C:\test>junk2 -N=1000 -W=32 -L=0
 1 : 25459
...
19 : 25403
20 : 25123
Took 16.446213 seconds