use strict;
use diagnostics;
use POSIX 'locale_h';
use locale;
use Gettext;
setlocale(LC_CTYPE, 'es_ES');
my $gt = new Gettext();
$gt->bindtextdomain("messages", 'D:/temp/gt');
print $gt->gettext("Close"),"\n";
print $gt->dgettext("messages", "Close"),"\n";
print $gt->dcgettext("messages", "Close", "fr_FR"),"\n";
print $gt->textdomain(),"\n";
print $gt->textdomain(''),"\n";

OUTPUT

'LC_MESSAGES' is not recognized as an internal or external command,
operable program or batch file.

'LC_MESSAGES' is not recognized as an internal or external command,
operable program or batch file.

'LANGUAGE' is not recognized as an internal or external command,
operable program or batch file.

messages
messages