gettext Zeichensatz Problem

[Stella]

Hi

in der Perl-Datei habe ich folgenden Code

#!/usr/bin/perl  
  
use warnings;  
use strict;  
  
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);  
use CGI ':standard';  
use DBI;  
  
use POSIX;  
use Locale::gettext;  
  
  
POSIX::setlocale(POSIX::LC_MESSAGES, 'de_DE');  
  
my $test = Locale::gettext->domain('xxx');  
$test->dir(./locale);  
  
...  
  
print $test->get('t1')