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