SSL_verify_mode => SSL_VERIFY_PEER, dient zur Überprüfung des Zertifikats.

SSL_VERIFY_PEER ist eine aus IO::Socket::SSL exportierte Konstante.

//EDIT:
Und du musst einen Pfad auf das CA-Root-Zertifikatsbündel setzen:
SSL_ca_file => 'C:\strawberry\perl\site\lib\Mozilla\CA\cacert.pem',

//EDIT2:
Wenn STARTTLS nicht klappt, weil das Zertifikat nicht überprüft werden konnte, murkt Net::FTP nämlich, dass die Verbindung zu ist wie hier zu sehen:
Net::FTP=GLOB(0x2a292bc)<<< 220 ... FTP server ready
Net::FTP=GLOB(0x2a292bc)>>> AUTH TLS
Net::FTP=GLOB(0x2a292bc)<<< 234 AUTH TLS successful
Net::FTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at f.pl line 19.
Net::FTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at f.pl line 19.
Net::FTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at f.pl line 19.
Net::FTP: Net::Cmd::_is_closed(): unexpected EOF on command channel: Bad file descriptor at f.pl line 19.
Last edited: 2015-03-27 09:35:10 +0100 (CET)