Public ScratchpadDownload, Select Code To D/L
Locale data (contains a msgid of Baz that translates to 'New Baz'): 
/home/cowboy/locale/x/LC_MESSAGES/test.mo
First example: 
use strict;
use Locale::TextDomain('test','/home/cowboy/locale');
use POSIX qw(:locale_h);

setlocale( LC_ALL, 'x' );

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

[download]
Second: 
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";

[download]