sub testFunc {
  print &getFuncName();
}

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

testFunc();

__output__

main::testFunc
[download]

_________
broquaint

++, was pressed for time.

-Lee

"To be civilized is to deny one's nature."