Help for this page

Select Code to Download


  1. or download this
    $ perl -wE 'my $t = sub { uc(@_)}; say $t->("foo")'
1