*STDIN = $c; # $c is child socket
  select $c;
  open(STDOUT,">&=".fileno($c));