$ perl -e 'eval {undef=1;1} or die "Died: $@"'
Died: Modification of a read-only value attempted at -e line 1.