$compteur = 1;

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

print "Termi