use Net::FTP 3.07;
use IO::Socket::SSL 2.012 qw(debug1);
use Net::SSLeay 1.68;

my $ftp = Net::FTP->new(
    'ftp.gwendragon.de',
    SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE,
) or do { print "\$@ = '$@'"; exit(); };
$ftp->starttls;