Select Code to Download

# Syntax sugar
sub Iterator (&) { $_[0] }
...
       return undef; # we are exhausted
   }
}

#!perl -l

...
        return undef;
    }
}