RosettaCodeData/Task/Copy-a-string/Perl-6/copy-a-string-3.pl6

# y $original = 'Hello.';
#my $bound-ro ::= $original;
#say $bound-ro;        # prints "Hello."
#try {
#  $bound-ro = 'Runtime error!';
#  CATCH {
#    say "$!";         # prints "Cannot modify readonly value"
#  };
#};
say $bound-ro;        # prints "Hello."
$original = 'Goodbye.';
say $bound-ro;        # prints "Goodbye."