open(NCLIST, $ncaccts) || die ("Cannot open $ncaccts: $!");