DB<9> $op = sub { $_[0] + $_[1] }

  DB<10> p 4->$op(5)
9
  DB<11>