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