$iocv->cb( \&on_io );

sub on_io {
    open( $fh, '>>', $msg_log );
        print $fh "loop data: $data\n";
    close $fh;
    undef( $iocv );
    $iocv = AnyEvent->condvar;
    $iocv->cb( \&on_io );
};