sub log10{ log( $_[0] ) / log( 10 ) }

printf("%.16e\n", log10($_))
   for 1e2, 1e3, 1e4;