$ perl -Mdiagnostics x
Subroutine a redefined at x line 6 (#1)
    (W redefine) You redefined a subroutine.  To suppress this warning, say

        {
        no warnings 'redefine';
        eval "sub name { ... }";
        }