LANG=
LC_CTYPE=en_US.ISO8859-1
LC_NUMERIC=en_US.ISO8859-1
LC_TIME=en_US.ISO8859-1
LC_COLLATE=en_US.ISO8859-1
LC_MONETARY=en_US.ISO8859-1
LC_MESSAGES=C
LC_ALL=

##</code><code>##

use warnings;
use strict;
use Tk;

my $file = '06_Protection_de_la_tête.xml';
my $cmd = "ls -l $file";

### This works.
print qx($cmd);

### So does this.
open my $F, '<', $file or die $!;
print scalar <$F>;

### This fails.
### An error message states that the file cannot be found and the 
### "LATIN SMALL LETTER E WITH CIRCUMFLEX" is shown in UTF-8.
my $mw = MainWindow->new;
my $exec = $mw->ExecuteCommand(
	-command => $cmd,
)->pack;
$exec->execute_command;
$exec->update;

MainLoop;

##</code><code>##

06_Protection_de_la_tête.xml: No such file or directory