C:\test>perl -wE"no warnings 'redefine';sub FOO(){23};sub FOO(){42};say $];"
Constant subroutine FOO redefined at -e line 1.
5.014002