#! /usr/bin/perl#
 
$compteur = 100;
 
do
{
   print "Compteur= $compteurn";
} until ( --$compteur ==