opendir(DIR, $ordner)or die "$!";