#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP 3.07;
use Net::FTP::File 0.06;

# perl -MIO::Socket::SSL=debug4 test_ftp.pl

my $ftp = Net::FTP->new(
	'hosturl',
	Timeout			=> 10,
	SSL_ca_file		=> 'mozilla_cacert.pem',    # dies ist die Datei aus Mozilla::CA Version 20150826
	debug			=> 1,
) or do { print "\$@ = '$@'"; exit(); };
$ftp->starttls() or print "mist";