#!/usr/bin/perl

# Inicializo la variable Contador ($cnt)
$cnt = 0;

# Comienzo el bucle While
While ($cnt <= 7) {
# Imprimo la variable y nueva linea: \n
print "$cnt\n";
# Incremento el contador
$cnt ++;
}