my $func_name = 'f';
my $cr = do { no strict 'refs'; \&$func_name };
say $cr->();