use strict;
use Locale::TextDomain('test','/home/cowboy/locale');
use POSIX qw(:locale_h);

setlocale( LC_ALL, 'x' );

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

##</code><code>##

use strict;
use Locale::gettext;
use POSIX qw(:locale_h);

setlocale( LC_ALL, 'x' );

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