in reply to program path

perldoc perlvar, look for $0; see also perldoc FindBin (or FindBin).

In Section Seekers of Perl Wisdom