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