open (LOG,">>$file") ;
   truncate(LOG, 3);
   close (LOG) ;