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