Sub::Info is much easier.
In reply to Re^2: How to get the name from a reference by chromatic in thread How to get the name from a reference by michi