Select Code to Download

        use locale;
        use strict;
...
        print $texte, "\n";
        close FIC;

        use locale;
        use strict;
...

        closedir (DIR);

    use locale;
    use strict;
...

    closedir (DIR);