J'en ai fais un en Perl : Ligne de commande : ici