Select Code to Download

    *STDIN  = \*{ $prop->{client} };
    *STDOUT = \*{ $prop->{client} } if ! $prop->{client}->isa('IO::Soc
+ket::SSL');
    # ...
    select(STDOUT);

my $fileno= fileno $prop->{client};
if(  defined $fileno  ) {
...
    *STDIN= \*{ $prop->{client} };
    *STDOUT= \*{ $prop->{client} };
}