Select Code to Download

>perl -le"$i=3; print($i+0, ++$i, $i+0);"
344

>perl -le"$i=3; print($i, ++$i, $i);"
444

# $i=3; print($i+0, ++$i, $i+0);
$i = 3;
...
   $anon1 = $i+0;  alias $_[2] = $anon1;
   &print
};

# $i=3; print($i, ++$i, $i);
$i = 3;
...
   $i;         alias $_[2] = $i;
   &print
};

perl -le"$i=3; sub { $_[1]++; print @_ }->($i+0, ++$i, $i+0, $i);"