Why not regular dictionary like gettext?

PickTheLanguage( $cgi );
...
<title>@{[ text('title') ]}</title>
...
<h1>@{[ text('The Choosening') ]}</h1>


sub PickTheLanguage {
    ... warn ...
    our $LANG = 'fr'; # from $query
    ## ensure loaded %dictionary = ( fr => { title => "French", "The C
+hoosening" => "Le choisirning"  } );
}
sub text {
    $dictionary{$LANG}{"@_"} || "@_";
}
[download]