in reply to Re^3: __END__ without __BEGIN__?
in thread __END__ without __BEGIN__?

b@d

#! perl;

print 'ignore b@d';
die;

[download]
Will do what you want if started as perl -x your_script.pl

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

In Section Seekers of Perl Wisdom