libevent: updated to 2.0.22
[tomato.git] / release / src-rt-6.x.4708 / router / p910nd / banner.pl
blob5a238c80a46b832485bd155696a5bce419844c1d
1 #!/usr/bin/perl
2 while (1)
4 exit 0 if read(STDIN,$c,1) == 0;
5 last if ($cl eq "\031" && $c eq "\001");
6 $cl = $c;
8 kill 'STOP',$$;
9 exit 0