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