谁知道如何在函数里面得到该函数的名字

谁知道如何在函数里面得到该函数的名字
例如
===================
abc();
sub abc
{
$a = ..... ;
print $a;
}
===================
希望$a 的值可以是 abc
当然，函数的名字可能是其他的。而你预先不知道该函数的名字
我想应该有一个环境变量把？或者内置变量

perldoc -f caller.
perldoc -f caller

sub abc {-- @re.
sub abc {
@ret = caller($i);
print $ret[3], "\n";
}

abc();

$i 是什么.

是call stack----abc(.
是call stack

abc();
sub abc {
@ret = caller(0);
print "$ret[3]\n";
def();
}

sub def {
@ret = caller(1);
print "$ret[3]\n";
}

就象用调试器一样.

haha --谢谢 qiang/shuc.
haha
谢谢 qiang/shucho
找到了
caller(0) 就可以了。

我说我用 perldoc caller 怎么找不到呢
少了 -f