#! /usr/bin/perl

use utf8;

use Locale::gettext;

binmode(STDOUT, ":utf8");

$d="auto-multiple-choice";

$s="Copying scans to project directory...";

print "* utf8\n";

print "Des œufs cassés\n";

print "* simple\n";

my $l=Locale::gettext->domain($d);

print $l->get($s)."\n";

print "* raw\n";

my $lr=Locale::gettext->domain_raw($d);

$lr->codeset("UTF-8");

print $lr->get($s)."\n";

print "* decode\n";

my $lh=Locale::gettext->domain_raw($d);

my $ss=$lh->get($s);

utf8::decode($ss);

print($ss."\n");