Select Code to Download

$ grep 'read command channel socket' $(perldoc -l Net::FTPSSL)
                             ? "Can't read command channel socket: $!"

        # Now lets read the response from the command channel.
        my $read = sysread( $self, $data, 4096);
...
          return (CMD_ERROR);
        }
     }