#! perl
use strict;
use warnings;

for my $s ('fred')
{
    print "\$s = $s\n";
    Internals::SvREADONLY($s, 0);
    $s = 'wilma';
    print "\$ = $s\n";
}