RosettaCodeData/Task/Integer-sequence/Perl/integer-sequence-1.pl

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