my $counter = 0;
my $generator = sub { ++$counter };

while (1) {
    print $generator->();
}