use IO::Handle;
    open DBCHILD, "| $^X $0 -dbchild" or die ...;
    DBCHILD->autoflush( 1 );
    # ...
    sub eventHandler {
        # ...
        print DBCHILD $eventTaskDesc, $/;
    }