caller() is the function you want. A subroutine can get its own name like this:

perl -e 'sub try { print +(caller(0))[3] }; try() '
[download]

Christian Lemburg
Brainbench MVP for Perl
http://www.brainbench.com