#! perl
use strict;
use warnings;

my $s = 'fred';
print "\$ = $s\n";
$s = 'barney';
print "\$s = $s\n";
Internals::SvREADONLY($s, 1);
$s = 'wilma';
print "\$ = $s\n";