#!/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 $server");
$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;