open (STDIN, "<&CLIENT")    || die "cant dup client to stdin";
        open (STDOUT, ">&CLIENT")    || die "cant dup client ti stdout";
        exit &$coderef();
-->     }  <--