this actually works:

use warnings;
use constant foo => 10;

BEGIN {
  no warnings;
  undef &foo;
  *foo = sub () {20}
}
[download]