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

##</code><code>##

truncate $fh, 0 or die ...

##</code><code>##

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