use CGI::Carp qw(fatalsToBrowser);
use CGI ':standard';
use strict;

my %lang;
$lang{"ok"}{"de"}           = "OK";
$lang{"saved"}{"de"}        = "Speichern erfolgreich. ";

$lang{"ok"}{"en"}           = "OK";
$lang{"saved"}{"en"}        = "Saved!";

# Ist sonst dynamisch
$sesslang = "de";

    # Sprache einbinden
    for (keys %lang) {
        #print "Add $_ with $lang{$_}{$sesslang} for Sessionlang $sesslang <br>";
        $vars{"lang_$_"} = $lang{$_}->{$sesslang};
    }

    $tt->process($Template, \%vars ) || die "Template process failed: ", $tt->error(), "\n";