use strict;
use warnings;
use 5.010;

BEGIN {
    &Internals::SvREADONLY(\undef, 0);
    ${\undef} = "Demons are coming out of my nose!";
};