xclose $dad_rdr;
    xopen \*STDOUT, ">&=" . fileno $kid_wtr;

##</code><code>##

    xclose $dad_rdr;
    xopen \*STDOUT, ">&=" . fileno $kid_wtr;

##</code><code>##

    xclose $dad_rdr;
    open STDOUT, ">&=1";
    xopen \*STDOUT, ">&" . fileno $kid_wtr;