after:after#3         script-perl::Eval {Tcl::_code_dispose('Tcl=SCALAR(0x871eb00);after#2')} type-timer
after:after#2         script-::perl::CODE(0x89f20c8) type-timer