1>perl -we "sub rmap(&@){1}; eval { rmap { $_++ } 1 }; print $@;"

2>perl -we "sub rmap(&@){1};        rmap { $_++ } 1"

##</code><code>##

3>perl -we "eval { map { $_++ } (1) }; print $@;"
Modification of a read-only value attempted at -e line 1.

4>perl -we "       map { $_++ } (1)             "
Modification of a read-only value attempted at -e line 1.

##</code><code>##

5>perl -we "sub rmap(&@){my $c=shift;$c->($_) for @_};        rmap { $_++ } 1
   print $@;"
syntax error at -e line 1, near "1    print"
Execution of -e aborted due to compilation errors.

6>perl -we "sub rmap(&@){my $c=shift;$c->($_) for @_};        rmap { $_++ } 1;
   print $@;"
Modification of a read-only value attempted at -e line 1.