Select Code to Download

{
    package Iterator::Filter;
...
    }
}

my $fi = new Iterator::Filter
    Iterator::Array->new( [ 1 .. 10 ] ), # inner iterator
...

print $fi->value, "\n" until $fi->is_exhausted ;