#!/usr/bin/perl

#Libaries
use strict;
use warnings;

use File::Find;

#no warnings 'File::Find';
binmode(STDIN, ":encoding(cp437)");
binmode(STDOUT, ":encoding(cp437)");

#Variablendeklaration
my $start = "I:/";
my @dirs;

system('cls');

sub wanted {
    my $file = $File::Find::name;

    # Ausschluesse, was nicht verarbeitet werden soll
    return if $file =~ m{\$RECYCLE\.BIN}
           || $file =~ m{RECYCLER}
           || $file =~ m{System Volume Information}
           || !-d $file
    ;
    # wer es hierher geschafft hat, darf verarbeitet werden
    push @dirs, $file;
}


find(
  # Optionen einmal als HashRef uebergeben
  { wanted => \&wanted, no_chdir => 1, },
  # Liste der Startverzeichnisse
  $start
);

#Ausgabe aller Ordnerpfade
print join( "\n", @dirs, '' );

foreach my $ordner ( @dirs ) {
    print $ordner . "\n";
}