in reply to printing up until a certain line within a file

perl -pe 'exit 0 if /^##START/' foo