my $i = 0;
print ++$i, "\n" while 1;