Select Code to Download

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

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

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