#!/usr/bin/perl -w
use strict;

use Locale::gettext;
use POSIX;

# The C locale is special cased in glibc to not look at LANGUAGE
# so we set C.UTF-8 as the base locale instead
$ENV{LANG} = 'C.UTF-8';

for my $lang (qw(fi_FI fr_FR en_US)) {
    $ENV{LANGUAGE} = $lang;
    setlocale(LC_MESSAGES, '');
    my $d = Locale::gettext->domain("bash");
    print $d->get('syntax error'), "\n";
}
