$ perl -le   '$x = time;for (1..1000000000) {}; print time - $x;'
51