Hi perlte58:

Its not very clear if the error is due to any broken module or something. You can always tweak your script a bit to get more output. Like using "Debug" mode and getting return value at every step.

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTPSSL;
my $server = "192.168.2.108";
my $username = "user";
my $passwd = "pass";

my @returnval;

my $ftps = Net::FTPSSL->new( $server,
                              Port => 21,
                              Encryption => EXP_CRYPT,
                              Debug => 1) or error("Cannot reach $serv
+er");
$ftps->login($username, $passwd)
    or error("Credential error, $ftps->last_message");
@returnval = $ftps->list()
    or error("Command error, $ftps->last_message");
$ftps->pwd();
print @returnval;
[download]