$ perl
use Lexical::Alias 'alias_r';

my $s;
alias_r \"I am immutable", \$s;

$s = "fie!";
^D
Modification of a read-only value attempted at - line 6.
$