Help for this page

Select Code to Download

Select or download this

 
sub name(&;@) {
   my ($code, @list) = @_;
...

# then called
name {BLOCK} LIST;