Help for this page
$tkxfsr->{after}{$afterid}{sub}=sub{ ... delete $tkxfsr->{after}{$afterid}; } };
invalid command name "::perl::CODE(0x96f045c)"