Select Code to Download

$ perl testLocal.pl
Benchmark: running localWhile, localWhileQR, whileLocal, each for at l
+east 3 CPU seconds...
...
whileLocal   20885/s           --         -28%         -54%
localWhile   28894/s          38%           --         -37%
localWhileQR 45766/s         119%          58%           --

$ cat testLocal.pl
#!/usr/bin/perl -w
...
            whileLocal => \&whileLocal
        }
    );