sub foo {
  # do groovy things here
}

my $coderef = \&foo;


my $method_name = mythical_coderef_name_fetcher($coderef);

print $method_name;  # output is 'foo'