opendir (my $dirh, $dir) or die "Verzeichnis '$dir' kann nicht geöffnet werden";
# ....
closedir $dirh