如何获取函数引用的名称

Question

我将函数func_foo传递给通用处理程序handle：

sub func_foo {  # do something }

sub handle {
  my $func_ref = shift;
  # TODO: Print the name of func_ref.
  $func_ref->();
}

handle(\&func_foo);

如何在func_foo内的TODO行检索传递函数的名称（即handle）？

对于上面的示例，如果我只是print $func_ref，我会得到类似CODE(0x21a8fca0)的内容。