Help for this page

Select Code to Download

Select or download this

  sub a { my ($sub) = @_; $sub->(4) }
  sub b { print @_ };

  a(\&b);

Select or download this
```
  a( sub {print @_} )
```