Here's the full incantation:

perl -wMstrict -e
"
 {
   no strict 'refs';
   local *{ 'foo:bar' } = sub { print qq{hi there $_[0]} };
   *{ 'foo:bar' }{CODE}->('sailor');
 }
"
hi there sailor
[download]