my $log = IO::File->new(">$log_file_name");
$log->print("date()."--\n\n\n");
sub process {
  my ($sub_dir, $file, $config, $log) = @_;
  $log->print("-- Reading $file file\n");
}