opendir(DIR, $dirname) or die ("Cannot open $dirname");