Boucle While en Pearl

print "How old are you?";
$age = <>;

$age = <>;
print "How old are you?";

print "Jusqu'à combien dois-je compter ?"
chomp($limite = <>)

while ($compteur < $limite)
{
...
}

$compteur eq $compteur + 1;

$compteur = $compteur + 1

$compteur++

#!/usr/bin/perl -w 

my $limite;
my $compteur = 1;

print "Je vais compter les lamas pour m'endormir.\n";
print "Jusqu'à combien dois-je compter ?\n";
$limite = <STDIN>;

#il faudrait vérifier que $limite est >=1 !
#Situation initiale, le compteur est à 1


# Tant que le compteur n'a pas atteint sa limite
while ($compteur <= $limite)
{
    # On compte
    print "$compteur lamas\n";
    $compteur++ ;
}

print "zzzzzZZZZ\n";