Select Code to Download

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

 my $pm = new Parallel::ForkManager($tc+1);
    $pm->run_on_finish( sub { my ($pid, $exit_code, $ident) = @_; $tmp
+Files[$ident] = undef; } );
...
      }
      $pm->finish; # Terminates the child process
    }