my $old = *{Tk::MainLoop}{CODE};
*Tk::MainLoop = sub { ... };