DB<1> $\=$/;


  DB<2> sub tst { print shift }


  DB<3> sub ptst(&) { print shift }

  DB<4> sub ff { tst sub {1, 2, 3,} } ff for (1..3);
CODE(0x2d1c1f8)
CODE(0x2d1c840)
CODE(0x2d1c828)

  DB<5> sub ff { print sub {1, 2, 5,} } ff for (1..3);
CODE(0x2d1c330)
CODE(0x2d1c330)
CODE(0x2d1c330)


  DB<6> sub ff { ptst {1, 2, 4,} } ff for (1..3);
CODE(0x2d1c8a0)
CODE(0x2d1c930)
CODE(0x2d1c8e8)