if (open(NAMEONED,$onedname))