...FTP-Verbindung...
foreach($ftp->ls()) {
    open(S_DATEI, "< $_");
        @auslesen = <S_DATEI>;
    close S_DATEI;

    foreach(@auslesen) {
        if(-f $_) {
            &normale_datei();
        } else {
            &ordner();
        }
    }
}
...FTP-Verbindung schließen...