Select Code to Download

sub range {
  my($start, $end) = @_;
  return sub {
...

my $it = range(3, 5);
for (my $value; $value = $it->(); ) { say $value }

sub list_range {
  my($start, $end) = @_;
  return sub { $start .. $end };
...

my $lit = list_range(3, 5);
for ($lit->()) { say $_ }