readdir(DIR, "$dir") or die $!;