in reply to how to get a subroutine name?

see caller

  DB<111> sub tst { print ( (caller(0))[3] ) }

  DB<112> tst()
main::tst

[download]

Cheers Rolf

( addicted to the Perl Programming Language)

In Section Seekers of Perl Wisdom