DB<11> $codeRef= sub { print @_ }
 
  DB<12> sub doit (&) { $_[0]->("para") }
 
  DB<13> doit { &$codeRef }
para