crypto/openssl-0.9.7d/util/deleof.pl

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