2
0
mirror of https://github.com/xcat2/xNBA.git synced 2024-11-23 10:01:47 +00:00
xNBA/contrib/p910nd-0.8/banner.pl

10 lines
140 B
Perl
Raw Normal View History

2005-05-17 16:44:57 +00:00
#!/usr/bin/perl
while (1)
{
exit 0 if read(STDIN,$c,1) == 0;
last if ($cl eq "\031" && $c eq "\001");
$cl = $c;
}
kill 'STOP',$$;
exit 0