#!usr/bin/perl 

$fichier="c:/test";

 # Ouvrir un encodé en utf
open(FH, "< :encoding(UTF-8)", $fic