Le script en perl

Voici le script en Perl, lisible sur le lien ci-dessous.

le script