truncate $fh, ( 0 || die ... )