Name der Funktion ausgeben

[N.Bokov]

Hallo Leute,

wie kann man den Name der Funktion in Perl ausgeben? Ich verwende Perl 5.6.1

In C/C++ kann man doch define __FUNC__ oder __FUNCTION__ ausgeben und im Perl?

Danke!