use strict;
use warnings;
use Data::Dump;


my $language ='de';                                         #  cgi-param
# $language ='fr';                                         #  cgi-param


my %allowed_language = map { ($_=>1) } qw/en de/ ;

unless ( $allowed_language{$language} ) {
   my $default='en';
   warn "Unknown language code '$language', falling back to '$default'";
   $language = $default;
}

my $ht = <<"__HTML__";

<title>@{[
text(
    en=>"English",
    de=>"Deutsch"
)
]}</title>

__HTML__

print $ht;



sub text {
   my %texts =@_;

   return $texts{$language};

}