$ perl
*ro = \'readonly_dynamic';

print "=$ro=\n";
defined eval {$ro = 'newval'}
  or print "Exception: $@";
^D
=readonly_dynamic=
Exception: Modification of a read-only value attempted at - line 4.