use strict;
use warnings;

Internals::SvREADONLY(my $answer = 42, 1);

print "This interpolates: $answer\n";
$answer++;  # dies