sub delete_client {
  my ($kernel, $heap, $io_wheel_id) = @_;
  delete $heap->{clients}{$io_wheel_id};
  $kernel->delay(keepalive => undef);
}