truncate $fh,0 || die "could not truncate $dcs_log_file: $!";

##</code><code>##

 truncate $fh, die("could not truncate ${log_file}: $!");