Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.

123456789
  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