my $fileno= fileno $prop->{client};
if(  defined $fileno  ) {
    open STDIN, "<&$fileno" or die ...;
    open STDOUT, ">&$fileno" or die ...;
} else {
    close STDIN;
    close STDOUT;
    *STDIN= \*{ $prop->{client} };
    *STDOUT= \*{ $prop->{client} };
}