Name of current sub

[Nigel Peck]

Is there a way to get the name of the current sub?
So:

sub test_sub {
        $subname = ???;
        print $subname; # prints test_sub?
}

Took a look through Programming Perl and Googled it but couldn't find 
the answer.

TIA
Nigel

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>