$ perl5.16.0 -wE'
no warnings "redefine";
sub FOO () { 23 }
sub FOO () { 42 }'
$