perl -wle "sub sqrt { return q(more than 1.4) } print sqrt(2);print main::sqrt(2); print CORE::sqrt(2);"

##</code><code>##

Ambiguous call resolved as CORE::sqrt(), qualify as such or use & at -e line 1.
1.4142135623731
more than 1.4
1.4142135623731