Select Code to Download

### Iterate.pl
use strict;
...
while (defined($file = NEXTVAL($WrappedXml_file))) 
    print $file;
}

### Iterator_Utils.pm
package Iterator_Utils;
...
sub NEXTVAL { $_[0]->() }
sub Iterator (&) { return $_[0] }
1;