#!/usr/bin/perl -w

#Conta N vezes e escreve o resultado da contagem

print STDOUT "Ate que numero queres contar?  ";
$N = <STDIN>;

$i = 1;
while ($i <= $N) {
     print STDOUT "$i\n";
     $i++;
}