[script] Remove arbitrary limit on script line lengths
[people/dverkamp/gpxe.git] / 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