Select Code to Download

#! perl -sw
use strict;
...
$_->join for @threads;

print "Ended " . scalar locatime;

perl -e"printf qq[line %6d:the quick brown fox jumps over the lazy dog
+\n], $_ for 1 .. 1e6" >phrases.small

...
...
23/03/2011  03:19        57,000,000 phrases.small
...

C:\test>junk71 -T=1 phrases.small >out.txt
Started Wed Mar 23 03:19:58 2011
...
Started Wed Mar 23 03:30:32 2011
1000000 15088.645826608 at C:\test\junk71.pl line 30, <> line 1000000.
Ended Wed Mar 23 03:31:38 2011

perl -MTime::HiRes=time 
-E"BEGIN{warn $t=time, }" 
...
1300851145.745 at -e line 1.
977517.104726817 at -e line 2, <> line 1000000.
1300851146.77491 at -e line 2, <> line 1000000.