Hi, I am receiving weird error "555 Can't read command channel socket"
Cannot find this error in FTP specifications, which leads me to thought that this is this module's specific error. Here is the debug log of the connection: 
Net-FTPSSL Version: 0.17

Perl: 5.008008  [5.8.8],  OS: linux

Server (port): XXX,XXX,XXX,XXX (21)

SKT <<< 220 RBCNG FTPS (Version  Wed Jan  5 14:54:38 2011) server read
+y.
SKT >>> AUTH TLS
SKT <<< 234 Enabling TLS, awaiting negotiations.
>>> USER XXXXXXX
<<< 331 Password required for XXXXXXX.
>>> PASS *******
<<< 230 User XXXXXXX logged in.
>>> PBSZ 0
<<< 200 PBSZ Command successful.
>>> PROT P
<<< 200 PROT Command successful.
>>> PASV
<<< 227 Entering Passive Mode (XXX,XXX,XXX,XXX0,24,54)
>>> LIST inbound
<<< 150 Opening data connection for '/bin/ls'.
<<< 226 Transfer complete.
$VAR1 = 'drwxrwxr-x    2  XXXXXXX FTP           4096 Jan  5 14:04 inva
+lid';
$VAR2 = 'drwxrwxr-x    2  XXXXXXX FTP            256 Jan  4 10:59 vali
+d';

>>> TYPE I
<<< 200 Type set to I
>>> PBSZ 0
<<< 200 PBSZ Command successful.
>>> PROT P
<<< 200 PROT Command successful.
>>> PASV
<<< 227 Entering Passive Mode (XXX,XXX,XXX,XXX0,24,55)
>>> HELP
<<< 214- The following commands are recognized (* =>'s unimplemented).
<<<    USER    PORT    STOR    MSAM*   RNTO    NLST    MKD    CDUP
<<<    PASS    PASV    APPE    MRSQ*   ABOR*   SITE    XMKD*  XCUP*
<<<    ACCT*   TYPE    MLFL*   MRCP*   DELE    SYST    RMD    STOU
<<<    SMNT*   STRU    MAIL*   ALLO    CWD     STAT    XRMD*  SIZE
<<<    REIN    MODE    MSND*   REST*   XCWD*   HELP    PWD    MDTM*
<<<    QUIT    RETR    MSOM*   RNFR    LIST    NOOP    XPWD*  FEAT 
<<<    AUTH    PBSZ    PROT    CCC 
<<< 214 Direct comments to sysadm.
<<+ 214 The ALLO command is supported.
>>> ALLO 5
<<< 202 ALLO command ignored.
>>> STOR test
<<+ 555 Can't read command channel socket: 
>>> QUIT
<<+ 555 Can't read command channel socket:

[download]
And the code itself: 
use Net::FTPSSL;

my ($ftps) = Net::FTPSSL->new("XXXXXXX",
        "Port" => 21,
        "Encryption" => "E",
        "Debug" => 1,
        "OverridePASV" => 0);

if (!$ftps->login("XXXXX", "XXXXX"))
{
        die($ftps->last_message());
}

use Data::Dumper;

print Dumper($ftps->list("folder1")), "\n";

$ftps->binary();
$ftps->put("test");

$ftps->quit();

[download]
Can you please advise me the way to resolve it?

In reply to NET:FTPSSL, 555 Can't read command channel socket by ayegorov

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.