Is there a way to determine if the current file is the one being executed in Perl source? In Python we do this with the following construct:
if __name__ == \'__m
See the "Subclasses for Applications (Chapter 18)" portion of brian d foy's article Five Ways to Improve Your Perl Programming.