my %sprache;
sub Sprache {
    
    use HTML::Entities;
    use    sprache;

    my $gewaehlte_sprache = "deutsch";
    
    if ($gewaehlte_sprache eq "deutsch") {%sprache = sprache::deutsch()}
    elsif ($gewaehlte_sprache eq "englisch") {%sprache = sprache::englisch()}
    elsif ($gewaehlte_sprache eq "franzoesisch") {%sprache = sprache::franzoesisch()}
    else {die qq(Konnte Sprachdatei nicht oeffnen: $!)}

# Umlaute und Sonderzeichen mit HTML::Entities in HTML-Schreibweise ersetzen

    foreach my $key (keys %sprache) {

        $sprache{$key} = encode_entities($sprache{$key});

    }# foreach

}# Ende (sub Sprache)