Name der Funktion ausgeben

[Struppi]

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

z.b. so:

  
my $f = (caller(0))[3];  

Struppi.