Select Code to Download

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

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