Select Code to Download

c:\@Work\Perl>perl -wMstrict -le
"sub S { return sub { print qq{hiya $_[0]}; }; }
...
 $coderef->('sailor')
"
hiya sailor