sub check_sleep {
  my $cnt = shift;
  while (($cnt-- > 0) && ($quit == 0)) { sleep 1; }
}