my $fh = FileHandle->new(">>$log_file") || die "could not open $log_file: $!";
truncate $fh,0 || die "could not truncate $log_file: $!";
$fh->close() || die "could not close $log_file: $!";