#!/usr/bin/perl -w
use Locale::gettext;
use POSIX; # Needed for setlocale()
use strict;
my $lang = $ENV{'HTTP_ACCEPT_LANGUAGE'};
if((split(/,/, $lang))[0] =~ /^en(.*)/) { $lang = "en"; }
elsif((split(/,/, $lang))[0] =~ /de(.*)/) { $lang = "de"; }
else { $lang = "en"; }
#$ENV{'LANG'}="$lang";
# hier soll die spracheinstellung des browser beachtet werden...
# nicht die des ausfuehrenden servers
setlocale(LC_MESSAGES, $lang);
bindtextdomain("testcgi", "/usr/share/locale");
textdomain("testcgi");
...
print "Content-type: text/html\n\n";
print "gettext";
print "".gettext("Hello gettext")."
";
print "";