BEGIN {
    &Internals::SvREADONLY(\undef, 0);
    undef = 42;
    &Internals::SvREADONLY(\undef, 1);
}

use constant UNDEF => ${ \undef };

my $x = UNDEF;