open (DAT,">${dir}${TextFile}") or die $!;