keepalive => sub { my ( $io_wheel, $kernel ) = @_[ ARG0, ARG1 ]; $io_wheel->put( "keepalive" ); $kernel->delay_add( 'keepalive' => 10 );