# in my Perl script
sub getInterfaceText {
my ($lang) = @_;
my ($msg);
my %text = (
"en" => {
"msg" => qq|
explores the complex dynamic between people and
conservation as part of the mission
|,
},
"es" => {
;msg" => qq|
explora el complejo dinámico entre la gente y la
conservación como parte de la misión
|,
},
"pt" => {
"msg" => qq|
explora a dinâmica complexa entre pessoas e a
conservação como parte da missão
|,
},
);
return $text{$lang}->{msg};
}
my $lang = $cgi->param('lang') ||
substr(lc $ENV{"HTTP_ACCEPT_LANGUAGE"}, 0, 2) ||
"en";
my $msg = getInterfaceText($lang);
my $tmpl->param(LANG => $lang, MSG => $msg,);
#----
# in my html page retreived as http://path/to/webpage/?lang=es
test of accents