perl -E"say(join('-', split('', reverse(ucfirst('hello')))))"

##</code><code>##

compose(sub{ ucfirst $[0] }, sub { $_[0] . "\n" });

##</code><code>##

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