use strict;
use warnings;
use 5.010;

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

##</code><code>##

BEGIN {
    &Internals::SvREADONLY(\'blue', 0);
    ${\'blue'} = 'turtle';
    
    &Internals::SvREADONLY(\5, 0);
    ${\5} = 5.000000000001;
	
};