sub translate {
        my %ARGS = (
                        lang    => '',
                        load    => 0,
                        @_
                   );

        my ($lang, %lang);
        %lang   = %{'lang' . $ARGS{lang}};

        if($ARGS{ttD} && !$ARGS{load}) {
                $lang   = (${$ARGS{ttD}});
        }

        foreach my $key (keys %lang) {
                $lang->{$key} = $lang{$key};
        }

        return($lang);
}