Select Code to Download

use warnings;
use strict;
...
        print "C'est démarré !!";
    }
}

print $nom, "\n";

open my $log_fh, '<', $nom
    or die "Can't read '$nom': $!";