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