Select Code to Download

                              # $_     $_[0]  $_[1]  $_[0]  $_[1]
                              # -----  -----  -----  -----  -----
...
   alias $_[1] = $_+=3;       # 6      $_     $_     6      6
   &f;
};

>perl -le "$_=1; ($_+=2)+=3; print $_"
6