Select Code to Download

use strict;
use warnings;
...
while ( my ($val) = $iter->() ) {
    print "$val\n";
}

    
C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/generator_iterator.pl 
5
...
17

Compilation finished at Sat Nov 13 21:18:20