#!/usr/bin/perl -w

use strict;

use Locale::TextDomain('test');
use Locale::Messages qw (LC_MESSAGES);
use POSIX ('setlocale');
setlocale (LC_MESSAGES, '');

print "Content-type: text/html\n\n";
print __"test";
print "\n$ENV{LANG}\n";

__END__