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

print "Version Net::FTP: ".$Net::FTP::VERSION."\n";

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

sub losgehts {
    use Net::FTP;
    use IO::Socket::SSL qw(SSL_VERIFY_CLIENT_ONCE);
    my @hosts = (
        {
            url     => 'url.url.de',
            user    => 'benutzername',
            passw   => 'passwort',
        },
    );
    foreach my $ref (@hosts) {
        my $ftp = Net::FTP->new(
            $ref->{url},
            Debug           => 0,
            Passive         => 1,
            SSL_verify_mode => SSL_VERIFY_CLIENT_ONCE,
        ) 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";
}