Select Code to Download

perl -e "print 1++"

Can't modify constant item in postincrement (++) at -e line 1, near "1
+++"
Execution of -e aborted due to compilation errors.

sub incr { $_[0]++ };

incr($foo);
incr(1);