my @files = map { "$dir/$_" } grep !/^\.{1,2}$/, readdir(DIR);

##</code><code>##

truncate(FILE,0) || die "truncate - $file : $!\n";;
     seek( FILE,SEEK_SET,0) || die "seek - $file : $!\n";