Select Code to Download

sub genIterator {
    my ($len,$count) = @_;
...
    }

}

my $iter = genIterator(4,3);
print while defined($_ = $iter->());