#######################################################################################################

use FileHandle;
...
...
sub open_log_file {
  my $log_file = shift;
  # open the log
  $log_fh = FileHandle->new("> $log_file") || die "Failed to open log file $log_file: $!";
  return 1;
}