1*ebfedea0SLionel Sambuc#!/usr/local/bin/perl 2*ebfedea0SLionel Sambuc 3*ebfedea0SLionel Sambucwhile (<>) 4*ebfedea0SLionel Sambuc { 5*ebfedea0SLionel Sambuc print 6*ebfedea0SLionel Sambuc last if (/^# DO NOT DELETE THIS LINE/); 7*ebfedea0SLionel Sambuc } 8