Select Code to Download

use lib '.' ;
use strict ;
...
while ( my ($item) = $iter->() ) {
   print "$item\n" ;
}