*Cow::speak = sub {print "mooo\n"};

Cow->speak();

--output:--
mooo