Select Code to Download

$ perl -e 'eval { map { $_++ } 1 };'
$ perl -e 'eval { map { $_++ } 1 }; print $@;'
Modification of a read-only value attempted at -e line 1.
$ perl -e '       map { $_++ } 1 '
Modification of a read-only value attempted at -e line 1.

$ perl -e '$n = q/eval { die;}; print "1: $@"/; eval {$n}; print "2: $
+@"'