let make_new_directory ?perm dirname =     mkdir_or_fail ?perm dirname