Select Code to Download

use warnings;
no warnings "redefine";

{
    no warnings "redefine";
...
        ...
    }
}

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