Select Code to Download

my $counter = 0;
my $generator = sub { ++$counter };
...
while (1) {
    print $generator->();
}

my $gimme_an_A = sub { 'a' };

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