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)

use Sprache;
$s = new Sprache;
$s->get(-sprache=>$gewaehlte_sprache, -wort=>loeschen);

$s->get($gewaehlte_sprache, 'loeschen');

use CGI::Simple;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

use Db;

my $obj = {};

$obj->{-cgi} = CGI::Simple->new();
$obj->{-cgi}->parse_query_string();

$obj->{-dbh} = Db::ConnectToDb($obj);

&Check($obj);
&Handler($obj);

#!/Perl/bin/perl
use Benchmark; # Benschmark
my $t0 = new Benchmark;

# ... ganzer Rest

my $t1 = new Benchmark;
my $td = timediff($t1, $t0);
print "the code took:",timestr($td),"\n";
exit( 0 );

# ... subs

package sprache;

use strict;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
use vars qw(%deutsch %englisch %franzoesisch);
use HTML::Entities;

require 5.004;
require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(g_w);
@EXPORT_OK = qw(%deutsch %englisch %franzoesisch);

$VERSION = '0.01';

require HTML::Entities;

#################################################
# D E U T S C H
my %deutsch = (

#--[ N A V I G T I O N ]-------------------------

        home      &n
bsp;     =>    'Startseite',
        forum      &
nbsp;     =>    'Kontaktforum',
        kontakt     &nbsp
;      =>    'Kontakt',
        empfehlen     &nb
sp;  =>    'Empfehlen',
        impressum     &nb
sp;  =>    'Impressum',
        spiel      &
nbsp;     =>    'Spiel',

#--[ B U T T O S ]-------------------------

        submit      
      =>    'Absenden',
        reset            =>    'Löschen',
        
);
#################################################
# E N G L I S C H
my %englisch = (
        
);
#################################################
# F R A N Z O E S I S C H
my %franzoesisch = (
    
);

sub g_w { # g_w steht fuer get_wor(t/d)

    my ($sprache, $wort) = @_;
    if ($sprache eq "deutsch") { return encode_entities($deutsch{$wort}) }
    elsif ($sprache eq "englisch") { return encode_entities($englisch{$wort}) }
    elsif ($sprache eq "franzoesisch") { return encode_entities($franzoesisch{$wort}) }
    else {die qq(Konnte Sprachdatei nicht oeffnen: $!)}

}# g_w

1;