use warnings;
use strict;

my $c = 1;

while (1){
    print $c++ ."\n";
    sleep 1;
}