Sub::Identify?
Still, that's rather a roundabout way to do things.
In reply to Re^4: how to get a subroutine name? by tobyink in thread how to get a subroutine name? by Hossein