Help for this page
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