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