use File::Spec;
my $dir = File::Spec->catfile("c:", "Dokumente und Einstellungen");

opendir (my $DIR, $dir) or die $!;
my @files = readdir($DIR);
closedir($DIR);
print "@files\n";