Problème accent fichiers Perl TK

Bonjour,
Config: Perl 5, IDE Padre 0.842
1) Sans use TK, je n'ai pas de problème lorsque je liste les fichiers accentués présents d'un répertoire $DIR.
J'utilise cette fonction pour récupérer la liste des fichiers, cette fonction est appelée et prend en entrée $DIR:

my @Files = GetFilesList ($DIR);#liste des fichiers d'un dossier de chemin $DIR.

sub GetFilesList
{

my $path = $_[0];
use Encode;
opendir my $dh, $path or warn "Error: $!";
my @p_files = grep !/^\.\.?$/, readdir $dh;
closedir $dh;
@p_files = map { decode( 'UTF-8', "$path/".$_ ) } sort @p_files;

return @p_files;

}

==> Il lit les fichiers même avec accent sans problème. Je l'observe comme ceci en écrivant le contenu de la liste des fichiers dans un txt:

my $fileText = 'report.txt';
open(my $fh, '>', $fileText) or die "Could not open file '$fileText' $!";

my $sizeFiles = scalar @Files;
print("sizeFiles = $sizeFiles\n");
for(my $k = 0; $k<$sizeFiles; $k++)
{

print("Files[k] = $Files[$k]\n");
print $fh "Files[k] = $Files[$k]\n";
}

close $fh;

2) Même chose avec use TK dans MainLoop ==> accents non reconnus!!!
J'ai passé quasi une semaine à lire des forums et à tester des solutions mais aucune ne marche. Par exemple celle-ci (qui vient de https://perl.developpez.com/faq/tk/?page=Astuces-et-divers%29 :

Avant de printer, dans mon for précédent:

$File[$k] = encode( 'iso-8859-1', $File[$k] );

==> J'ai essayé avec utf8, UTF-8, cp1252..... je suis à court d'idée et, aussi un peu désespéré. Pourquoi ce qui marche en Perl sans TK ne fonctionne plus dans un MainLoop du TK??

Je précise que je travaille avec les packages use Encode, use utf8

Je remercie vivement d'avance celles ou ceux qui comme moi ont galéré sur ce sujet et ont pu débloquer la situation.