in reply to Reference sub name

caller, but I doubt that's the best approach to the actual problem you want to solve.

In Section Seekers of Perl Wisdom