c:\@Work\Perl\monks>perl -wMstrict -le
"sub hiya { print 'hello there ', $_[0]; }
 hiya('sailor');
 ;;
 my $coderef = *hiya{CODE};
 $coderef->('everybody');
"
hello there sailor
hello there everybody