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 ready.
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 invalid';
$VAR2 = 'drwxrwxr-x    2  XXXXXXX FTP            256 Jan  4 10:59 valid';

>>> 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: 

##</code><code>##

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();