in reply to Searching for an alternative to $0

See Filename of current package, it's the same question.

In Section Seekers of Perl Wisdom