perl -lni.bak -e '/^__END__$/ && last; print;' filename.pl