#!/usr/bin/perl
use strict;
use warnings;

#perl test_ftp.pl

my $erg = losgehts();
print "Ergebnis: $erg\n";

sub losgehts {
    use Net::FTP;
    use IO::Socket::SSL qw(SSL_VERIFY_CLIENT_ONCE);
    my @hosts = (
        {
            url     => 'test .de',
            user    => 'abc',
            passw   => 'xyz',
        },
    );
    foreach my $ref (@hosts) {
        my $ftp = Net::FTP->new(
            $ref->{url},
            Debug               => 1,
            Passive             => 1,
            SSL_verify_mode     => SSL_VERIFY_CLIENT_ONCE,
            SSL_session_cache   => IO::Socket::SSL::Session_Cache->new(1),
        ) or return 'bei '.$ref->{url}.' ist Net::FTP->new() fehlgeschlagen';
        $ftp->starttls() or return 'bei '
            .$ref->{url}
            .' ist $ftp->starttls() fehlgeschlagen'
        ;
        print "Zeile ".__LINE__."\n";
        $ftp->login($ref->{user},$ref->{passw}) or return 'bei '
            .$ref->{url}
            .' ist $ftp->login($ref->{user},$ref->{passw}) fehlgeschlagen'
        ;
        print "Zeile ".__LINE__."\n";
        my $hash_ref = $ftp->dir() or return 'bei '
            .$ref->{url}.' ist $ftp->dir(\'/\') fehlgeschlagen'
        ;
        print "Zeile ".__LINE__."\n";
    }
    print "Zeile ".__LINE__."\n";
}