155714Skris#!/usr/local/bin/perl 255714Skris 355714Skriswhile (<>) 455714Skris { 555714Skris print 655714Skris last if (/^# DO NOT DELETE THIS LINE/); 755714Skris } 8