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