#! /usr/bin/perl#

$compteur = 100;

do
{
   print "Compteur= $compteurn";
} until ( --$compteur ==