Help for this page

Select Code to Download


  1. or download this
    perl -E"say(join('-', split('', reverse(ucfirst('hello')))))"
  2. or download this
    compose(sub{ ucfirst $[0] }, sub { $_[0] . "\n" });
  3. or download this
    perl -e 'print sub { "Hello @{[shift->()]}!\n" }->(sub{"World"})'