[...]
my $s;
{
  local $tmp;
  *tmp=\"I am immutable";
  alias_r \$tmp, \$s;
}
[...]