truncate $fh, 0 or die ...