Select Code to Download

{
  my $init = 'aa';
...
    return $ret;
  }
}

package Tie::ScalarIter;

...
}

1;

# functional

...
  last if length($next) > 4;
  push @strings, $next;
}