in reply to substitution in $0

Just use Inline::Files.

-- Randal L. Schwartz, Perl hacker

In Section Seekers of Perl Wisdom