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