&{$animal."::speak"};

##</code><code>##

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

Cow->speak();

--output:--
mooo