Select Code to Download

use strict;
use Locale::TextDomain('test','/home/cowboy/locale');
...
setlocale( LC_ALL, 'x' );

print $__{'Baz'} . "\n";

use strict;
use Locale::gettext;
...

my $d = Locale::gettext->domain('test'); $d->dir('/home/cowboy/locale'
+);
print $d->get('Baz') . "\n";