open (DAT,">$TextFile");
 print DAT "$text\n"; 
 close(DAT);