Sub::Identify allows you to retrieve the real name of code references.

WWW: http://search.cpan.org/dist/Sub-Identify/