Select Code to Download

  if ($optimize_history) {
    # remove duplicities from history
...
    # only add new line to the history file
    $term->WriteHistory($file);
  }

  if ($optimize_history) {
    my @history = $term->GetHistory($file);
...
    $term->SetHistory(@history);            # set history to new list
  }
  $term->WriteHistory($file);               # save history

$history{$_} ? splice(@history,$i--,1) : $history{$_}=1;

Can't modify splice in scalar assignment at ./history.pl line 35, near
+ "1;"
Execution of ./history.pl aborted due to compilation errors.