$compteur = 1;
 
do
{
   print "Compteur= $compteur ";
} while ( ++$compteur < 100 );
 
print "Termi