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

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