$ perl -le '$x = time;for (1..1000000000) {}; print time - $x;' 51 #### C:\>perl -le "$x = time;for (1..1000000000) {}; print time - $x;" 13