Select Code to Download

#! perl -slw
use strict;
...
    printf STDERR "\rn;%7d (%.3f/s) d:%7d (%.3f/s)",
        $nqd, $nqd / $e, $dqd, $dqd / $e;
}

C:\test>junk73
n;1000000 (44406.955/s) d: 994850 (44178.215/s)
Elapsed: 22.619 seconds

C:\test>perl -MTime::HiRes=time -e"BEGIN{$t=time()}" -nE"say;}{ warn t
+ime() -$t" phrases.small >out.txt
0.944000005722046 at -e line 2, <> line 1000000.

C:\test>perl -MTime::HiRes=time -e"BEGIN{$t=time()}" -nE"}{ warn time(
+) -$t" phrases.small
0.388376951217651 at -e line 2, <> line 1000000.

Firstly, 32-bit perl 5.12.3 on Windows: 
C:\_32\pscrpt>perl buk.pl -T=1 phrases.small >out.txt
...
Started Thu Mar 24 05:14:26 2011
1000000 4558.58825262797919 at buk.pl line 30, <> line 1000000.
Ended Thu Mar 24 05:18:05 2011