I can trap the error with a handler, too:

$ perl -e '$SIG{__DIE__} = sub {die "Handled: @_"};undef=1'
Handled: Modification of a read-only value attempted at -e line 1.
[download]