perl -e 'print sub { "Hello @{[shift->()]}!\n" }->(sub{"World"})'