contrib/p910nd-0.8/banner.pl

   1 #!/usr/bin/perl
   2 while (1)
   3 {
   4         exit 0 if read(STDIN,$c,1) == 0;
   5         last if ($cl eq "\031" && $c eq "\001");
   6         $cl = $c;
   7 }
   8 kill 'STOP',$$;
   9 exit 0