And an application of caller() might look like this

sub testFunc {
  print &getFuncName();
}

sub getFuncName {
  return (caller(1))[3];
}

testFunc();

__output__

main::testFunc
[download]

HTH

_________
broquaint