my $dir = 'leeres_verzeichnis';
die $dir . " ist kein Verzeichnis oder existiert nicht\n" unless -d $dir;
printf("Verzeichnis %s ist %s\n", $dir, (stat($dir))[3] == 2 ? 'leer' : 'nicht leer');