in reply to Using guards for script execution?

Perl provides you with a "main" package out of the box: 
perl -le'print __PACKAGE__'

[download]

In Section Seekers of Perl Wisdom