# Now lets read the response from the command channel. my $read = sysread( $self, $data, 4096); unless( $read ) { # Not called as an object member in case $self not a FTPSSL obj. _croak_or_return ($self, 0, (defined $read) ? "Can't read command channel socket: $!" : "Unexpected EOF on command channel socket!"); return (CMD_ERROR); } }