open (DAT, ">>$filename") || die ("no file exists");