close(FOUT)
   or die ("Can't write to FOUT: $!\n");