open STDOUT, ">&SOCK_WRITE" or die "STDOUT: $!\n";
warn "fileno(STDOUT)=",fileno(STDOUT),"\n";