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

  a(\&b);

##</code><code>##

  a( sub {print @_} )