#!/usr/bin/perl

use strict; 
use warnings;

use 5.010;
use Net::FTP;

my $ftp = Net::FTP->new(
    "*********.de", 
    SSL_verify_mode => 1,
    SSL_ca_file => 'X:\etc\ssl\certs\cacerts.pem',    
    Debug => 1
) or die "Cannot connect: $@";

$ftp->starttls();
$ftp->passive();

$ftp->login("*********",'****************')
  or die "Cannot login ", $ftp->message;
 
$ftp->cwd("/")
  or die "Cannot change working directory ", $ftp->message;
 
my @files = $ftp->ls()
  or die "ls failed ", $ftp->message;
  
say for @files;

$ftp->quit();