sub set_delim {
  # Add the delimiter to list if it's not already there
  undef $delim;
  try {
        if (! exists $delimiters{$delim}) {
          $choose_delim_be->insert('end', "$delim");
          $delimiters{$delim} = 'unk';
        } else {
          if ($delimiters{$delim} ne 'unk') {
              $delim = chr($delimiters{$delim});
          }
        }
  } catch {
        $msg = "Error occured while loading delimiters : $_";
        chomp($msg);
        print $msg;
        handleErr ($msg, 1006,0);    
  };
  
}