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