perl -wle "use subs 'sqrt'; print sqrt(2); print CORE::sqrt(2); sub sqrt { return sprintf('%.6g',$_[0] ** 0.5) } "
1.41421
1.4142135623731