Thanks for the reply! it works. But you need to open your file to append data before:

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

Graciliano M. P.
"The creativity is the expression of the liberty".