use fclose