As an additional reference: Perl Cookbook: Determining Current Function Name, might serve you well. See the whoami() and whowasi() functions.

update: link disabled - may not be an official online copy - although some of these O'Riley books are available legitimately online