DB<8> sub doit (&) { $_[0]->("para") }
 
  DB<9> $codeRef= sub { print @_ }
 
  DB<10> doit {print @_}
para
  DB<11> &doit($codeRef)  # disable checking
para