print times; 
system q[perl -e"$x = log( atan2(4,1)**($_**3)) for 1 .. 1e6"]; 
print times;;

0.062 0.062 0 0
0.062 0.062 0 0