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