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