Select Code to Download

return &?SUB() if $only_when and not $only_when(@next);

#!/usr/bin/pugs

...
                      code      => sub {say "reversed: {reverse @^grou
+p}"});

say "ITER {$cnt}: {$item.perl}" while $item = iter;