{
    my $redefined = sub  {
        ...
    }
    no warnings "redefine";
    *that_must_be_redefined = $redefined;
}