use strict;
use warnings;
use 5.010;

{package Cow;
	sub speak {
		say "Mooo.";
	}
}

my $meth_name = "speak";
Cow->$meth_name;

--output:--
Mooo.