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