opendir DIR, $dir or die $!;
my @files = grep {$_ ne '.' and $_ ne '..'} readdir DIR;
closedir DIR;

print "Verzeichnis leer!" if @files == 0;