C:\test>perl -wE"no warnings 'redefine';sub FOO(){23};sub FOO(){23};say$];"
5.014002