...
  keepalive => sub {
    my ( $io_wheel, $kernel ) = @_[ ARG0, ARG1 ];
  ....