C:\Code\SecCage>perl redef.pl
Subroutine One redefined at Mod2.pm line 10.
 at redef.pl line 5
        main::__ANON__('Subroutine One redefined at Mod2.pm line 10.\x{a}') called at Mod2.pm line 10
        require Mod2.pm called at redef.pl line 12
        main::BEGIN() called at Mod2.pm line 10
        eval {...} called at Mod2.pm line 10
Subroutine One redefined at redef.pl line 19.
 at redef.pl line 5
        main::__ANON__('Subroutine One redefined at redef.pl line 19.\x{a}') called at redef.pl line 19
Subroutine One redefined at redef.pl line 23.
 at redef.pl line 5
        main::__ANON__('Subroutine One redefined at redef.pl line 23.\x{a}') called at redef.pl line 23
second