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

opendir(DIR, 'c:\Ordner');

map { 
print $_ . "\n" unless /logging/;
} (readdir(DIR));

closedir(DIR);