sub readEditTokens {
    open(my $TOKENFILE, '<', $editTokenFile) or
      error("Cannot open edit token file: $!");
    flock($TOKENFILE, 1) or
      error("Cannot lock edit token file: $!");              
    my $editTokens = <$TOKENFILE>;
    return ($editTokens);
}