Select Code to Download

sub iterator {
  return unless @_;
...
while (my @part = $iter->()) {
    print "@part\n";
}