Select Code to Download

$VAR1 = {
  'Session 1' => {
...
    'lastfailtime' => 0
  }
};

sub merge_hist_changes  {   # Merges current session's history changes
+ into %sess_hist.

...
    print HF Dumper \%sess_hist;
    close HF;
    close HFL;  # Releases flock and lets next child process update $h
+ist_file