#!/usr/bin/perl -w

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

#Variablendeklaration
my $file;
my $ordner;
my $start = "K:/";
my @dir;

system('cls');

find(\&wanted, $start);

sub wanted {

	$File::Find::no_chdir = 1;
	$file = $File::Find::name."/";
	
	#Ordnerfilter(jetzt werden nur die Systemordner gefiltert)
        if($file =~ /\$RECYCLE.BIN/) { $file = ""; }
	if($file =~ /System Volume Information/) { $file = ""; }
	
	#Schreiben der Pfad in Array @dir
        if($file ne "") { push @dir, $file if (-d $file); }
	
}

#Ausgabe aller Ordnerpfade
foreach $ordner(@dir) {
        print $ordner."\n";
}